数字转换为大写的函数.doc

文档介绍：节functiondx(q)衿dimcuraslong,yuanaslong蚇dimjiaoasinteger,fenasstring莂ifq=""then芀dx=0荿exitfunction羇endif蒂cur=round(q*100)蚁yuan=int(cur/100)袆jiao=int(cur/10)-yuan*10螆fen=cur-yuan*100-jiao*yuan=(yuan,"[dbnum2]")肂cnjiao=(jiao,"[dbnum2]")薈cnfen=(fen,"[dbnum2]")yuan&"元"&"整"yuan&"元"蒂iffen<>0andjiao<>0then羆dx=jiao&"角"&cnfen&"分"薇ifyuan=jiao&"角"&cnfen&"分"虿endif螈endif莆iffen=0andjiao<>0then螂dx=jiao&"角"&"整"肀ifyuan=jiao&"角"&"整"肅endif袁endif蒁iffen<>0andjiao=0then袈dx=fen&"分"袄ifyuan=fen&"分"袂endif薀endif袇endfunctionForpersonaluseonlyinstudyandresearch;mercialuse