Office中国论坛/Access中国论坛

标题: 请教将全角数字转为半角数字的代码 [打印本页]

作者: xdcow 时间: 2006-1-7 07:22
标题: 请教将全角数字转为半角数字的代码
如题.

如果直接用FORMAT([字段])的话,就把前面的0也一起去掉了.很显然,有些有0,有些却没有.

因此希望保持原有数据不变

[此贴子已经被作者于2006-1-6 23:31:44编辑过]

作者: 情比金坚 时间: 2006-1-7 10:01
Function f(s As String)
Dim Str As String
Dim x As String
Dim y As Integer
For i = 1 To Len(s)
      x = Mid(s, i, 1)
      y = InStr("０１２３４５６７８９", x)
      If y > 0 Then
         Str = Str & y - 1
      Else
         Str = Str & x
      End If
      f = Str
Next
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)