关于货币金额逐位显示的出错问题。LucasLynn,大侠快来看看

一点通

将你最后处理过的例子放上来看下

一点通

问题主要出现你说的数都可用10来整除

一点通

能被10整除加一个判断就可实现完整的数，但在原数前加“￥”就不能实现了，看其它人还有没有高招。

一点通

以下是引用海狸先生在2005-12-24 15:09:00的发言：
Public Function GetBit(BitNo As Integer, value As Currency) As String
    If BitNo <= -Fix(-Log(value) / Log(10#)) Then
    GetBit = Int(CCur(value / 10 ^ BitNo)) Mod 10
     Else
       If BitNo = -Fix(-Log(value) / Log(10#)) + 1 Then
          GetBit = "￥"
       End If
    End If
End Function

高，+1与-1的变化

一点通

这样某些数据前会加 0

一点通

个人认为16楼(楼上)的方法好,无金额时不会出现错误,如果将"零壹贰叁肆伍陆柒捌玖"改为"0123456789",还可以变成小写货币金额逐位显示

[此贴子已经被作者于2005-12-24 19:09:05编辑过]