LucasLynn版主，转单个金额大写函数问题？请指正！

yangxiang

版主，你的转金额大写函数在转换时有的记录小数点后的有问题，有的无？请指正！多谢。

参数说明：
BitNo：元是0，往左依次为1、2、3、4、5……，往右（也就是小数点后）依次为-1、-2……
Money：钱的数量，单位为元。
Public Function GetBit(BitNo As Long, Money As Double) As String
    Dim BitCount As Long
    BitCount = Int(Log(Money) / Log(10#) + 0.000000000001) + 1
   
    Select Case BitNo
    Case Is > BitCount:
        GetBit = ""
    Case Is = BitCount:
        GetBit = "￥"
    Case Is < BitCount:
        Dim tmp As Long
        tmp = Int(Money / 10 ^ BitNo + 0.000000000001)
        tmp = tmp - Int(tmp / 10) * 10
        GetBit = Choose(tmp + 1, "零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
    End Select
End Function

LucasLynn

两个0.0000000001中间去掉几个0，改成0.00001就可以了。

写的时候随手打了一串，打多了，嘿嘿。

[此贴子已经被作者于2006-5-25 10:21:58编辑过]

yangxiang

已解决，谢谢版主指导！