请教将全角数字转为半角数字的代码

xdcow

如题.

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

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

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

情比金坚

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