谁有现存的把价格转换为大写人民币输出的函数?
有的话给我一个好吗?
应该不是太难,但要写好还是有点复杂的.所以想问大家要一个啦.
比如:
1234.56
转换为:
壹仟贰佰叁拾肆元伍角陆分整

谢谢!!
你的好完整
我刚自己写了一个:
m = Text1.Text
If IsNumeric(m) Then
m = Format(m, "#0.00")
m1 = CStr(m)
For n = 1 To Len(m1)
a = Mid(m1, n, 1)
If a = "." Then
m = Val(Left(m1, n - 1))
mm = Val(Right(m1, Len(m1) - n))
End If
Next
For n = 1 To Len(CStr(m))
a = Mid(m1, n, 1)
aa = Mid("零壹贰叁肆伍陆柒捌玖", Val(a) + 1, 1)
bb = Mid("元拾佰仟万拾佰仟亿拾佰仟", Len(CStr(m)) - n + 1, 1)
xx = xx & aa & bb
Next
For n = 1 To 2
a = Mid(CStr(mm), n, 1)
aa = Mid("零壹贰叁肆伍陆柒捌玖", Val(a) + 1, 1)
bb = Mid("角分", n, 1)
xx = xx & aa & bb
Next
MsgBox xx
Else
MsgBox "请输入数值型!"
End If

我的简单一点,不过不符合书写习惯,因为我的会出现
壹佰零拾贰万零仟零佰零拾零元零角零分
习惯应该为:
壹佰零贰万元整
不过我的还算符合国家规定的《正确填写票据和结算凭证的基本规定》
有一点我不明白:我看有好多都用圆,你的程序也用圆,但《正确填写票据和结算凭证的基本规定》中规定用元.
不过它有一点说明说:繁体的也可以,不知道这个圆是不是元的繁体?