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

文档介绍：functiondx(q)dimcuraslong,yuanaslongdimjiaoasinteger,fenasstringifq=""thendx=0exitfunctionendifcur=round(q*100)yuan=int(cur/100)jiao=int(cur/10)-yuan*10fen=cur-yuan*100-jiao*yuan=(yuan,"[dbnum2]")cnjiao=(jiao,"[dbnum2]")cnfen=(fen,"[dbnum2]")yuan&"元"&"整"yuan&"元"iffen<>0andjiao<>0thendx=jiao&"角"&cnfen&"分"ifyuan=jiao&"角"&cnfen&"分"endifendififfen=0andjiao<>0thendx=jiao&"角"&"整"ifyuan=jiao&"角"&"整"endifendififfen<>0andjiao=0thendx=fen&"分"ifyuan=fen&"分"endifendifendfunction