mysql 数字转大写_数字转大写

Function方法如下，传入number类型数据，就会返回大写汉字。

Function NumberToCN(&_Amount As number) Returns string

Local string &AmountCN;

Local array of string &array = Split(String(&_Amount), ".");

Local string &integer = "";

Local string &decimal = ""; 

Local array of string &arrayCN = CreateArray("壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖");

/*1      2 3 4 5 6 7 8 9 0 十 百 千 万 亿 元*/

/*壹 贰 叁 肆 伍 陆 柒 捌 玖 零 拾 佰 仟 万 亿 圆*/

&integer = &array [1];

&Length = Len(&integer);

If &Length <= 16 Then

&flg = "N";

For &i = 1 To &Length

&num = Value(Substri