人民币大写问题

Question

太长了吧pb有一段很经典，www.liulee.net上估计有

Answer 1

vbscript的
Function Convertje(Value)
dim i,j,result
snumber="壹贰叁肆伍陆柒捌玖"
qian="分角元拾佰仟万拾佰仟亿拾佰仟"
Result=""
j=1
tt=""
Value=Cstr(FormatNumber(Value,2))
Value=Replace(Value,",","")
If Value="0.00" Then
   Convertje="零元整"
Else
For i=len(value) to 1 step -1
    temp=mid(value,i,1)
    If Temp="." Then
       If Result="" Then 
          tt="元整"
       Else
          tt=""
       End If
    ElseIf Temp="0" Then
       tt=""
    Else
       tt=mid(snumber,cint(temp),1)&mid(qian,j,1)
    End If
    Result=tt&Result
    If Temp<>"." Then  j=j+1
Next
Convertje=Result
End If
End Function

Answer 2

http://expert.csdn.net/Expert/topic/730/730276.xml?temp=.7602045