人民幣數字轉漢字
2007/1/16 22:41:13
<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>
返回列表
返回首頁
主站蜘蛛池模板:
国产真实露脸精彩对白|
精品无码一区二区三区爱欲九九|
无码熟熟妇丰满人妻啪啪软件|
亚洲成av人影片在线观看|
精品久久久噜噜噜久久久|
国产仑乱无码内谢|
日韩精品一区二区三区中文精品|
在免费jizzjizz在线播|
аⅴ天堂中文在线网|
手机在线观看你懂的|
久久国产精品一区|
欧洲美熟女乱又伦免费视频
|
日韩一区二区三区北条麻妃|
亚洲午夜精品久久久久久浪潮
|
海角社区hjb09|
北美伦理电线在2019|
色噜噜视频影院|
国产女人乱人伦精品一区二区|
xxxxx做受大片视频|
国产高清视频网站|
a拍拍男女免费看全片|
小草视频免费观看|
中文字幕一区二区三区有限公司|
日本乱理伦电影在线|
久久精品国产亚洲av麻豆|
朝桐光亚洲专区在线中文字幕
|
偷看农村妇女牲交|
精品无码一区二区三区爱欲|
国产亚洲3p无码一区二区|
黑人与欧洲性大战|
国产无人区卡一卡二卡三网站|
16女下面流水不遮视频|
国产裸拍裸体视频在线观看|
AV中文无码乱人伦在线观看|
婷婷综合激情五月中文字幕|
三级4级做a爰60分钟|
成年私人影院免费视频网站|
久久久综合久久|
日韩AV无码久久精品免费|
久久这里有精品视频|
最近电影在线中文字幕|