function arabia_to_chinese(num)
num = num.replace("¥","")//替換掉可能出現的¥字元
if(isnan(num))
//---字元處理完畢,開始轉換,轉換採用前後兩部分分別轉換---//
part = string(num).split(".");
newchar = "";
//小數點前進行轉化
for(i=part[0].length-1;i>=0;i--)//若數量超過拾億單位,提示
tmpnewchar = ""
perchar = part[0].charat(i);
switch(perchar)
switch(part[0].length-i-1)
newchar = tmpnewchar + newchar;
}//小數點之後進行轉化
if(num.indexof(".")!=-1)
for(i=0;iif (newchar.charat(newchar.length-1) == "元" || newchar.charat(newchar.length-1) == "角")
newchar = newchar+"整"
return newchar;
}
Delphi中實現金額小寫轉化成大寫
function numtochar const n real string 可以到萬億,並且可以隨便擴大範圍 const um array 0.9 of string 零 壹 貳 叄 肆 伍 陸 柒 捌 玖 cunit array 0.14 of string 萬 仟 佰 拾 億 仟 佰 拾 萬 ...
將小寫金額轉化為大寫
public static string fnconverttobig string moneyvalue string getbit new string string gettoh new string string strtemp string strvalue while moneyvalu...
數字轉化成大寫金額 C 版
class numprocess if lng 10 lng 100 if lng 100 lng 1000 if lng 1000 lng 10000 if lng 10000 lng 100000000 if lng 100000000 return endregion region 獲取單個數...