也是人民币大写的问题!

小白

我的发票是行政事业性收费统一票据，所以大写金额是采用套打的方式，即不需“拾万仟佰拾元角分”等字，金额没达到的位数要用“零”来表示。如：金额为62元，需要打印的字为零零零零陆贰零零套打出来后应该显示：零拾零万零仟零佰陆拾贰元零角零分。
我对编程不太懂，要求和楼下的贴子又有些不一样，故请高手们再次出手相助，小弟在此先谢谢各位了!

[此贴子已经被作者于2004-3-4 9:28:34编辑过]

zhengjialon

这个比较接近但前面的零打不出来。
用法: MsgBox uper(11222012.345)
Public Function uper(number As Double) As String

str1 = Trim(Format(number, "########0.00"))
str2 = "分角圆拾佰仟万亿拾佰仟"
str3 = "零壹贰叁肆伍陆柒捌玖"
c = Len(str1)
I = 1
j = c

str1 = Mid(str1, 1, c - 3) & Mid(str1, c - 1, 2)

Do While (I < c)
    str4 = str4 & Mid(str3, Mid(str1, I, 1) + 1, 1) & Mid(str2, j - 1, 1)
    I = I + 1
    j = j - 1
Loop

uper = str4 & "整"

End Function