需要把一个MONEY值的个位十位百位千位还有角啊分啊的单独取出来生成表格。

最近在公司做一个帐务报销系统。

需要把一个MONEY值的个位十位百位千位还有角啊分啊的单独取出来生成表格。

于是写了一个得到此值的 Function ，放到这里共享。如果你看到有写得不妥的地方，请给我来 killhand007@163.com 指正交流。

Function Moneynm(n,m)

checkPoint = InstrRev(n,".")

If n>9999.99 Then

Response.write"数据超过限制，请确定您的报销金额在9999.99元以内！"

Else

If (checkPoint <> 0) Then

leftNum = Mid(n,1,checkPoint-1)

rightNum = Mid(n,checkPoint+1,Len(n))

Else

leftNum = n

End If

gw = Mid(leftNum,Len(leftNum),Len(leftNum))

sw = 0

bw = 0

qw = 0

jw = 0

fw = 0

If Len(leftNum)>1 Then

sw = Mid(leftNum,Len(leftNum)-1,1)

End If

If Len(leftNum)>2 Then

bw = Mid(leftNum,Len(leftNum)-2,1)

End If

If Len(leftNum)>3 Then

qw = Mid(leftNum,Len(leftNum)-3,1)

End If

If Len(rightNum)>0 Then

jw = Mid(rightNum,1,1)

End If

If Len(rightNum)>1 Then

fw = Mid(rightNum,2,1)

End If

Select case m

case "gw"

Response.Write gw

case "sw"

Response.Write sw

case "bw"

Response.Write bw

case "qw"

Response.Write qw

case "jw"

Response.Write jw

case "fw"

Response.Write fw

End Select

End If

End Function

当然在此基础上你还可以得到万位十万位等。

希望对有需要的朋友有所帮助。