为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

[资料]小写金额转大写金额

2017-12-19 9页 doc 24KB 55阅读

用户头像

is_852287

暂无简介

举报
[资料]小写金额转大写金额[资料]小写金额转大写金额 小写金额转大写金额 /// /// 获取金额的大写中文文字 返回: 中文数字文字 // mvarOrDollar 数字金额大小, mstrLanguage 字符串语言 P:简体中文 C:繁体中文 /// /// /// /// public static string GetDollorStr(double mvarOrDollar) { //返回简体中文的中文描述 return GetDollorStr(mvarOrDollar,"P"); } public st...
[资料]小写金额转大写金额
[资料]小写金额转大写金额 小写金额转大写金额 /// /// 获取金额的大写中文文字 返回: 中文数字文字 // mvarOrDollar 数字金额大小, mstrLanguage 字符串语言 P:简体中文 C:繁体中文 /// /// /// /// 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 = mvarOrDollar.ToString(); WLAMT = StrFormat(mvarOrDollar, 12, 2); for(int i = 0;i<12;i++) { if (i != 9) t_word = t_word + SHRCHG(WLAMT, WLAMT.Substring(i, 1), i, mstrLanguage); } string spacestr = ""; t_word = t_word + spacestr.PadLeft(40 - t_word.Length,' '); // End If return t_word.Trim(); } 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, 2) if(mstrLanguage.Equals("C")) WLNAME = "滁" + WLDD.Substring(WLLOC, 1); else WLNAME = "壹" + WLDD.Substring(WLLOC, 1); break; case "2": //'WLNAME = IIf(mstrLanguage = "C", "禠", "贰") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = "禠" + WLDD.Substring(WLLOC, 1); else WLNAME = "贰" + WLDD.Substring(WLLOC, 1); break; case "3": //'WLNAME = IIf(mstrLanguage = "C", "把 ", "叁") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = "把" + WLDD.Substring(WLLOC, 1); else WLNAME = "叁" + WLDD.Substring(WLLOC, 1); break; case "4": //'WLNAME = IIf(mstrLanguage = "C", "竩 ", "肆") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = "竩" + WLDD.Substring(WLLOC, 1); else WLNAME = "肆" + WLDD.Substring(WLLOC, 1); break; case "5": //'WLNAME = IIf(mstrLanguage = "C", "ヮ ", "伍") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = "ヮ" + WLDD.Substring(WLLOC, 1); else WLNAME = "伍" + WLDD.Substring(WLLOC, 1); break; case "6": //'WLNAME = IIf(mstrLanguage = "C", "嘲 ", "陆") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = "嘲" + WLDD.Substring(WLLOC, 1); else WLNAME = "陆" + WLDD.Substring(WLLOC, 1); break; case "7": //'WLNAME = IIf(mstrLanguage = "C", "琺 ", "柒") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = "琺" + WLDD.Substring(WLLOC, 1); else WLNAME = "柒" + WLDD.Substring(WLLOC, 1); break; case "8": //'WLNAME = IIf(mstrLanguage = "C", " ", "捌") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = " " + WLDD.Substring(WLLOC, 1); else WLNAME = "捌" + WLDD.Substring(WLLOC, 1); break; case "9": //'WLNAME = IIf(mstrLanguage = "C", "?", "玖") + Mid(WLDD, (WLLOC - 1) * 2 + 1, 2) if(mstrLanguage.Equals("C")) WLNAME = "?" + WLDD.Substring(WLLOC, 1); else WLNAME = "玖" + WLDD.Substring(WLLOC, 1); break; case "0": string locList = "123567"; if (locList.IndexOf(WLLOC.ToString().Trim()) > 0 && WLAMT.Substring(WLLOC + 1, 1) != "0") if(mstrLanguage.Equals("C")) WLNAME = "箂"; else WLNAME = "零"; else WLNAME = ""; if (WLAMT.Substring(WLLOC,1) == ".") WLNAME = WLDD.Substring(WLLOC, 1); if (WLLOC == 4 && (WLAMT.Substring(1, 1) != "0" || WLAMT.Substring(2, 1) != "0" || WLAMT.Substring(3, 1) != "0")) if(mstrLanguage.Equals("C")) WLNAME = "窾"; else WLNAME = "万"; break; } return WLNAME.Trim(); } private static string StrFormat(double Tlong,int Along,int Adec) { string tstr; tstr = Tlong.ToString().Trim(); if (tstr.IndexOf(".") == -1) { tstr += ".00"; } else { if (tstr.IndexOf(".") == 0) { tstr = "0" + tstr; } if (tstr.IndexOf(".") == tstr.Length - 1) //0. case { tstr = tstr + "0"; } if (tstr.Substring(tstr.IndexOf(".") + 1).Length == 1) { tstr = tstr + "0"; } else { tstr = tstr.Substring(0, tstr.IndexOf(".") + 3); } } if (tstr.Length < 12) tstr = tstr.PadLeft(12,' '); return tstr; }
/
本文档为【[资料]小写金额转大写金额】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索