文档介绍：小写金额转大写金额/// <summary> /// 获取金额的大写中文文字返回: 中文数字文字// mvarOrDollar 数字金额大小, mstrLanguage 字符串语言 P :简体中文 C :繁体中文/// </summary> /// <param name="mvarOrDollar"></param> /// <param name="mstrLanguage"></param> /// <returns></returns> public static string GetDollorStr(double mvarOrDollar) { // 返回简体中文的中文描述 return GetDollorStr(mvarOrDollar,"P"); } public static string GetDollorStr(double mvarOrDollar,string mstrLanguage) { string t_word; string WLAMT; // double tt; t_word = ""; // If mstrLanguage = "E" Or mstrLanguage = "e" Then // t_word = t_word + noinword(Int(mvarOrDollar)) // If mvarOrDollar <> Int(mvarOrDollar) Then // tt= Int((mvarOrDollar - Int(mvarOrDollar)) * 100) // t_word = t_word & "And "& " Cents "& noinword(tt) // End If // // Else // WLAMT = (); WLAMT = StrFormat(mvarOrDollar, 12, 2); for(int i= 0;i<12;i++) { if (i != 9) t_word = t_word + SHRCHG(WLAMT, (i, 1), i, mstrLanguage); } string spacestr = ""; t_word = t_word + (40 - ,' '); // End If return (); } private static string SHRCHG(string WLAMT, string WLCD,int WLLOC,string mstrLanguage) { string WLNAME; string WLDD; 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