人民币大写转换(200分)

fangzhou_com · 2008-09-04

比如：194.00 转换成：X万X仟壹佰玖拾肆圆零角零分 恳请做过的大侠教下啊

aricyoung · 2008-09-05

呵呵，很简单，就是将原来的大家习惯的“整”换成“零角零分”，可以实现，不知道满足要求不？如下代码： Function NtoC(n0 :real) :String;   Function IIF(b :boolean; s1,s2:string):string;     begin       if b then IIF:=s1 else IIF:=s2;     end;   Const c = '零壹贰叁肆伍陆柒捌玖◇分角圆拾佰仟万拾佰仟亿拾佰仟万';   var L,i,n, code :integer;       Z :boolean;       s, st,st1 :string; begin   s :=FormatFloat( '0.00', n0);   L :=Length(s);   Z :=n0<1;   For i:= 1 To L-3 do     begin       Val(Copy(s, L-i-2, 1), n, code);       st:=IIf((n=0)And(Z Or (i=9)Or(i=5)Or(i=1)), '', Copy(c, n*2+1, 2))         + IIf((n=0)And((i<>9)And(i<>5)And(i<>1)Or Z And(i=1)),'',Copy(c,(i+13)*2-1,2))         + st;       Z := (n=0);     end;   Z := False;   For i:= 1 To 2 do     begin       Val(Copy(s, L-i+1, 1), n, code);       st1:= IIf((n=0)And((i=1)Or(i=2)And(Z Or (n0<1))), '', Copy(c, n*2+1, 2))          + IIf((n>0), Copy(c,(i+11)*2-1, 2), IIf((i=2) Or Z, '','零角零分'))          + st1;       Z := (n=0);     end;   For i := 1 To Length(st) do If Copy(st, i, 4) = '亿万' Then Delete(st,i+2,2);   NtoC := IIf( n0=0, '零', st + st1); End; 调用：Edit2.Text:=NtoC(StrToFloat(Edit1.Text));

xingxin00 · 2008-09-05

以前有过大小写转换的，等给我找找看

foam · 2008-09-05

function FloatToCNStr(sr:real):string; const scCD:array ['0'..'9'] of string[2]=('零','壹','贰','叁','肆','伍','陆','柒','捌','玖'); scCU:array [1..7] of string[2]=('万','仟','佰','拾','圆','角','分'); var ss,ss1:string; s:byte; sc:char; begin   ss1:='';   ss:=format('%7d',[round(sr*100)]);   for s:=7 downto 1 do begin     ss1:=scCU~~+ss1;     sc:=ss~~;     if sc<'0' then ss1:='X'+ss1 else ss1:=scCD[sc]+ss1;   end;   result:=ss1; end;~~~~

墨剑 · 2008-09-05

function TForm1.CurrToChnNum(Currnum: currency): string; function FourNumToChnNum(Str:string;ChnNum:string;var Pre:boolean):string; const   digits: array [0..9] of string = ('零','壹','贰','叁','肆',                                        '伍','陆','柒','捌','玖'); var i,j,Len:integer; begin   Result := '';   Len := Length(str) ;   for i:=1 to Len   do begin     j := Ord(str)-48;     //if j=0 then     //  Pre := True     //else begin       if Pre then         Result := Result + '零';       Result := Result + digits[j] + Trim(Copy(ChnNum,(Len - i) * 2+1,2));       Pre := False;    // end;   end; end; function StringToChnNum(str:string):string; const ChnNum1='元万亿兆'; var i,Len,Len1,Level,Start:integer;   s1,s:string;   Pre: Boolean; begin   Result := '';   Len := Pos('.',str)-1;   Level := (Len + 3) div 4 ;   Len1 := Len mod 4 ;   if Len1=0 then Len1 := 4;   Start := 1;   for i := 1 to Level   do begin     Pre := False;     s := Copy(str,Start,Len1);     s1 := FourNumToChnNum(s,'  拾佰仟',Pre);     // 注意有两个空格     if s1<>'' then       Result := Result + s1 + Copy(ChnNum1,(Level-i)*2+1,2);;     Start := Start + Len1;     Len1 := 4;   end;   if copy(result,length(result)-3,2)='零' then delete(result,length(result)-3,2);   Pre := False;   s1 := FourNumToChnNum(Copy(str,Len+2,2),'分角',Pre);   //if s1 = '' then  s1 := '整';   Result := Result + s1 ; end; //主程序 var s:string; i:integer; begin   Currnum:=Currnum;   s:=format('%11.2f',[Currnum]);   //s:=formatfloat('0.00',currnum);   Result := StringToChnNum(Trim(s));   //while length(result)<28 do result:=' '+result; end;

fangzhou_com · 2008-09-05

多人接受答案了。

人民币大写转换(200分)

fangzhou_com

Unregistered / Unconfirmed

aricyoung

Unregistered / Unconfirmed

xingxin00

Unregistered / Unconfirmed

foam

Unregistered / Unconfirmed

墨剑

Unregistered / Unconfirmed

fangzhou_com

Unregistered / Unconfirmed

Similar threads