<SCRIPT LANGUAGE=vbs>
N=34334100000.0502'假設N不是負數,末尾不帶0
Snz=split(cstr(N),".")(0)'整數部分轉字串
A=array( "零","壹","貳","叁","肆","伍","陸","柒","捌","玖")
B=array("元","拾","佰","仟","萬","拾","佰","仟","億","拾","佰","仟","萬")
C=array("角","分","厘","毫")
WeiSz=len(cstr(int(Snz)))'整數位數
for i=1 to WeiSz     
              JieG=JieG & A(cint(mid(Snz,i,1)))       
              if cint(mid(Snz,i,1))<>0 or _
              (WeiSz-i)=0 or (WeiSz-i)=4 or _
              (WeiSz-i)=8 or (WeiSz-i)=12  then JieG=JieG & B(WeiSz-i)
JieG=replace(JieG,"零零","")
next
JieG=replace(JieG,"零","")
if N<>int(N) then
      JieG=JieG & "零"
      Snx=split(cstr(N),".")(1)'小數部分轉字串
      WeiSx=len(cstr(int(Snx)))'小數位數
      for i=1 to WeiSx     
              if cint(mid(Snx,i,1))=0 then i=i+1             
              JieG=JieG & A(cint(mid(Snx,i,1))) & C(i-1)
      next
end if
msgbox JieG
</SCRIPT>