文档介绍:[资料]小写金额转大写金额小写金额转大写金额///<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="货ㄕ珺窾ㄕ珺じàだ";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);break;case"2"://'WLNAME=IIf(mstrLanguage="C","禠","贰")+Mid(WLDD,(WLLOC-1)*2+1