CrazyJS,疯狂的JS

vb转大写函数

Function RMBChinese(ByVal Rmb As Double) As String On Error Resume Next Dim Rmbexp As String, Rmbda As String, Expda As String, Lent As Integer, Ntyp As Integer, Icnt As Integer, i As Integer, Trmb As String Rmb = Format(Rmb, “###0.00”) If Rmb > 999999999999.99 Then RMBChinese = “需转换的金额整数长度超过了12位!” Exit Function End If Rmbexp = “分角元拾佰仟万拾佰仟亿拾佰仟” Rmbda = “零壹贰叁肆伍陆柒捌玖” Ntyp = 0 Trmb = Replace(CStr(Format(Rmb, “0.00”)), “.”, “”) If Left(Trmb, 1) = “-”  [...]