把As .....這些去掉就能在ASP里用了，網上找來的，測試可用

Public Function UMoney(ByVal money) As String
??? Dim lnP As Integer
??? Dim Prc As String
??? Dim Tmp As String
??? Dim NoB As Currency
??? Dim Dx As String
??? Dim Xx As String
??? Dim Zhen As Boolean
??? Dim China As String: China = "分角元拾佰仟萬拾佰仟億"
??? Dim str: str = Array("零", "壹", "貳", "叁", "肆", "伍", "陸", "柒", "捌", "玖")
??? Zhen = True
??? money = FormatNumber(money, 2)
??? Prc = CStr(money)
??? Prc = Replace(Prc, ",", "")
???
??? lnP = Len(Prc)
??? For i = lnP - 1 To 1 Step -1
??????? If Mid(Prc, i, 1) = "." Then
??????????? Select Case lnP - i
??????????????? Case 1
??????????????????? Prc = Replace(Prc, ".", "") + "0"
??????????????? Case 2
??????????????????? Prc = Replace(Prc, ".", "")
??????????? End Select
??????????? Zhen = False
??????????? Exit For
??????? End If
??? Next
??? If Zhen Then Prc = Prc + "00"
??? lnP = Len(Prc)
??? For i = 1 To lnP
??????? Tmp = str(Mid(Prc, i, 1)) & Tmp
??? Next
??? UMoney = ""
??? fy = 1
??? For i = 1 To lnP
??????? Xx = Mid(Tmp, i, 1)
??????? Dx = Mid(China, i, 1)
???????
??????? If Xx <> "零" Then
??????????? UMoney = Xx & Dx & UMoney
??????????? f = 1
??????? Else
??????????? If i = 3 Then
??????????? UMoney = Dx & UMoney
??????????? End If
???????
??????????? If i = 7 Then
??????????????? UMoney = Dx & UMoney
??????????? End If
??????????? If f Then
??????????????? UMoney = "零" & UMoney
??????????? End If
??????????? f = 0
??????? End If
??? Next
??? If Zhen Then UMoney = UMoney + "整"
??? UMoney = Replace(UMoney, "零萬", "萬")
??? UMoney = Replace(UMoney, "零元", "元")
End Function

轉載于:https://www.cnblogs.com/yongzhi/articles/1187205.html

總結

以上是生活随笔為你收集整理的ASP金额转人民币大写的函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。