文档介绍:小写金额转大写金额///<summary>///?ñÈ??ð?îµÄ?óÐ?ÖÐÎÄÎÄ×Ö?µ?Ø?ºÖÐÎÄÊý×ÖÎÄ×Ö//mvarOrDollarÊý×Ö?ð?î?óÐ?,mstrLanguage×Ö?û??ÓïÑÔP?º?òÌåÖÐÎÄC?º??ÌåÖÐÎÄ///</summary>///<paramname="mvarOrDollar"></param>///<paramname="mstrLanguage"></param>///<returns></returns>publicstaticstringGetDollorStr(doublemvarOrDollar){//?µ?Ø?òÌåÖÐÎĵÄÖÐÎÄÃèÊöreturnGetDollorStr(mvarOrDollar,"P");}publicstaticstringGetDollorStr(doublemvarOrDollar,stringmstrLanguage){stringt_word;stringWLAMT;//doublett;t_word="";//IfmstrLanguage="E"OrmstrLanguage="e"Then//t_word=t_word+noinword(Int(mvarOrDollar))//IfmvarOrDollar<>Int(mvarOrDollar)Then//tt=Int((mvarOrDollar-Int(mvarOrDollar))*100)//t_word=t_word&"And"&"Cents"&noinword(tt)//EndIf////Else//WLAMT=();WLAMT=StrFormat(mvarOrDollar,12,2);for(inti=0;i<12;i++){if(i!=9)t_word=t_word+SHRCHG(WLAMT,(i,1),i,mstrLanguage);}stringspacestr="";t_word=t_word+(40-,'');//();}privatestaticstringSHRCHG(stringWLAMT,stringWLCD,intWLLOC,stringmstrLanguage){stringWLNAME;stringWLDD;if(mstrLanguage=="C")WLDD="?õ?a?Õ?B?U?a?Õ?B?????À";else//WLDD="ÒÚÇ??ÙÊ?ÍòÇ??ÙÊ?Ôª?Ç?Ö";WLDD="ÒÚǪ?ÛÊ?ÍòǪ?ÛÊ?Ôª?Ç?Ö";WLNAME="";switch(WLCD){case"":WLNAME="";break;case"1"://WLNAME=IIf(mstrLanguage="C","?ü","Ò?")+Mid(WLDD,(WLLOC-1)*2+1,2)if(("C"))WLNAME="?ü"+(WLLOC,1);elseWLNAME="Ò?"+(WLLOC,1