Delphi 實現數字轉大寫

從網上找的一段**

//

/ //
/ 小寫轉大寫
/// 
/// 
/// 
function moneyconvert(mmje: real): string
;const
s1: 
string = '
零壹貳叄肆伍陸柒捌玖';
s2: 
string = '
分角元拾佰仟萬拾佰仟億拾佰仟萬';
function strtran(const s, s1, s2: string): string;  
begin
result :=stringreplace(s, s1, s2, [rfreplaceall]);
end;var
s, dx: 
string
;  i, len: integer;
begin
if mmje < 0
then
begin
dx := '負'
;    mmje := -mmje;
end;  s := format('
%.0f
', [mmje * 100
]);  len :=length(s);
for i := 1
to len do
dx := dx + copy(s1, (ord(s[i]) - ord('
0')) * 2 + 1, 2) + copy(s2, (len - i) * 2 + 1, 2
);  dx := strtran(strtran(strtran(strtran(strtran(dx, '
零仟', '
零'), '
零佰', '
零'), '
零拾', '
零'), '
零角', '
零'), '
零分', '整'
);  dx := strtran(strtran(strtran(strtran(strtran(dx, '
零零', '
零'), '
零零', '
零'), '
零億', '
億'), '
零萬', '
萬'), '
零元', '元'
);  
if dx = '整'
then
result := '
零元整'
else
result := strtran(strtran(dx, '
億萬', '
億零'), '
零整', '整'
);end;

數字轉大寫

1.js實現方法 static string converttochinese double x return regex.replace d,m 負元空零壹貳叄肆伍陸柒捌玖空空空空空空空分角拾佰仟萬億兆京垓秭穰 m.value 0 tostring 2.c 實現方法 privatestaticst...

數字小寫轉大寫

加到類的定義部分 private static string cstr privatestatic string wstr 數字必須在12位整數以內的字串 呼叫方式如 label1.text convertint 數字字串 public string convertint string str rs...

數字小寫轉大寫

加到類的定義部分 private static string cstr private static string wstr 數字必須在12位整數以內的字串 呼叫方式如 label1.text convertint 數字字串 public string convertint string str r...