Delphi中實現金額小寫轉化成大寫

function numtochar(const n: real): string;   //可以到萬億，並且可以隨便擴大範圍

const **um:  array[0..9]  of string = ('零','壹','貳','叄','肆','伍','陸','柒','捌','玖');

cunit: array[0..14] of string = ('萬','仟','佰','拾','億','仟','佰','拾','萬','仟','佰','拾','元','角','分');

vari : integer;

snum,stemp : string;

begin

result :='';

snum := format('%15d',[round(n * 100)]);

for i := 0 to 14 do

begin

stemp := copy(snum,i+1,1);

if stemp=' ' then continue

else result := result + **um[strtoint(stemp)] + cunit[i];

end;

//去掉多餘的零

result := stringreplace(result, '零元','元', [rfreplaceall]);

result := stringreplace(result, '零拾', '零', [rfreplaceall]);

result := stringreplace(result, '零佰', '零', [rfreplaceall]);

result := stringreplace(result, '零仟', '零', [rfreplaceall]);

result := stringreplace(result, '零萬', '萬', [rfreplaceall]);

result := stringreplace(result, '零億', '億', [rfreplaceall]);

result := stringreplace(result, '億萬', '億', [rfreplaceall]);

result := stringreplace(result, '零零零','零', [rfreplaceall]);

result := stringreplace(result, '零零', '零', [rfreplaceall]);

result := stringreplace(result, '零萬', '萬', [rfreplaceall]);

result := stringreplace(result, '零億', '億', [rfreplaceall]);

result := stringreplace(result, '億萬', '億', [rfreplaceall]);

result := stringreplace(result, '零元', '元', [rfreplaceall]);

if pos('零分',result)=0 then result := stringreplace(result,'零角','零', [rfreplaceall])

else result := stringreplace(result,'零角','整', [rfreplaceall]);

result := stringreplace(result,'零分','', [rfreplaceall]);

end;

iOS 實現金融選金額的遊標尺

首先我要可以設定最大值 最小值 和預設指向的值 property nonatomic,assign double minvalue 最小值，預設為0 property nonatomic,assign double maxvalue 最大值，必需設定 property nonatomic,assig...

delphi中Tedit輸入金額數字

procedure tform1.edit1keypress sender tobject var key char 控制edit1的輸入數字 varp integer begin 限制只能輸入數字，小數點，負號 if not key in 0 9 8,13 then begin key 0 end...

struts2標籤實現金額格式化輸出

實現效果 從資料庫中讀到物件屬性的值 12 顯示到頁面 12.00 首先在struts2的國際化資原始檔 如果不知道這個檔案，請搜尋 struts2國際化 可以找到相應答案 新增 global.format.money 這樣的顯示效果為 輸入12345 顯示為123,45.00 輸入12345.6 ...

PHP實現金額數字轉換成大寫函式

header content type text html charset utf 8 function num to upper num elseif len pointdigit 2 else for i 0 i c i for j len pointdigit j 1 j chinses st...

C 實現金額大小寫轉換，由小寫轉為大寫

include using namespace std include int main 如要修改可使用 char 這樣進行建立 char wei 20 char num 15 while cin st else break lh l 1 lq cout lh int shi 0 for int i...