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

wuheng

LucasLynn，我在用你写的关于货币金额逐位显示模块时，出现错误，如“

当数字为10,100,1000,10000,100000,1000000,....时，首位1没有显示出来。

具体代码见发下网址

http://www.office-cn.net/forum.php?mod=viewthread&tid=32946&replyID=&skin=1

这要如何解决，请LucasLynn和各位大侠再次赐教，谢谢!

                                                                                    wuheng敬上

pyzl

呵呵，好好顶一下

pyzl

[:34] [:34]

wuheng

谢谢各位大侠:[em17]

   象0。XX那么小的数值，我想应该用少用到的吧？至少我不用，（呵呵）

不管怎么样，再次谢谢各位了

sgrshh29

以下是引用海狸先生在2005-12-24 16:50:00的发言：


呵呵，是有这个问题，一个个小小的错误　

Dim intNo As Integer

改成 Dim intNo As Currency

如果：0.xx 有问题.   另外楼上的函数也有问题。

fan0217

转贴：数字在支票打印中分栏数字的函数

s-要分栏的数字
N 分栏为1 角为2 元为4 十为5....... 依次类推

Function Get_s(ByVal s As Variant, ByVal n As Variant) As Variant

Dim i As Variant

If s = 0 Then
  Exit Function
End If

i = Len(s)  ‘取数字长度

If i < 3 Then     ’没小数位，补2位小数
  s = s & ".00"
End If

If Right(Left(s, i - 1), 1) = "." Then  ‘只有一位小数 ， 补齐2位
s = s & "0"
End If

i = Len(s)  ‘从新取补起小数位数字长度

If i = n - 1 Then     ’在分栏第一个碰到没数字的拦赋￥
  Get_s = "￥"
  Exit Function
End If

If i < n Then         ‘ 在没数字的拦位赋空值
  Get_s = ""
  Exit Function
End If

Get_s = Right(Left(s, i - n + 1), 1)  '取值

End Function

一点通

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

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

sgrshh29

凑个热闹：

Public Function CHN(BigNo As String, IntNo As Integer)
    Const cnum = "零壹贰叁肆伍陆柒捌玖"
    CHN = ""
    sNum = Trim(BigNo * 100)
    For I = 1 To Len(sNum)
         CHN = CHN + Mid(cnum, Mid(sNum, I, 1) + 1, 1)
    Next I
    CHN = StrReverse(CHN) & "￥"
    For I = 1 To Len(CHN)
         If I = IntNo Then
         CHN = Mid(CHN, I, 1)
         End If
    Next I
    If IntNo >= I Then CHN = ""
End Function


调用方式，从分位起，依次为：CHN(金额, 1)；CHN(金额, 2)；CHN(金额, 3)..........直到最高位。结果是逐位显示中文大写数字。

海狸先生

呵呵，是有这个问题，一个个小小的错误　

Dim intNo As Integer

改成 Dim intNo As Currency

一点通

这样某些数据前会加 0