Function DecimalToChineseCurrency(Decimal: String): String; Var
s, t : TStringList;
i, ti : Integer;
tmps : String;
IsDecimal : Integer; Begin IsDecimal := 0;
ti := 0;
For i := 1 To Length(Decimal) Do
Begin
If Decimal[i] = '.' Then
Begin Inc(IsDecimal);
ti := i;
End;
If Not (Decimal[i] In ['0'..'9', '.']) Or (IsDecimal > 1) Then
Begin Result := Decimal;
Exit;
End;
End;
If ti = 0 Then //小數點的位置 Begin tmps := Decimal + '.';
ti := Length(tmps);
tmps := Decimal;
s := TStringList.Create;
t := TStringList.Create;
Try s.Delimiter := ',';
t.Delimiter := ',';
s.CommaText := '0=零,1=壹,2=貳,3=三,4=肆,5=伍,6=陸,7=柒,8=捌,9=玖';
t.CommaText := '-1=分,0=角,1=元,2=拾,3=佰,4=仟,5=萬,6=拾,7=佰,8=仟,9=億,10=拾,11=佰,12=仟,13=兆,14=拾,15=佰,16=仟';
ti := Length(tmps) - ti;
tmps := StringReplace(tmps, '.', '', [rfReplaceAll]);
For i := 1 To Length(tmps) Do
Begin
If (tmps[Length(tmps) - i + 1] = '0') And (i Mod 4 = 1) Then
Result := t.Values[IntToStr(i - ti)] + Result
Else
If (tmps[Length(tmps) - i + 1] = '0') And (i Mod 4 <> 1) Then
Result := s.Values[tmps[Length(tmps) - i + 1]] + Result
Else
Result := s.Values[tmps[Length(tmps) - i + 1]] + t.Values[IntToStr(i - ti)] + Result;
End;
While Pos('零零', Result) > 0 Do
Result := StringReplace(Result, '零零', '零', [rfReplaceAll]);
If Pos('零兆', Result) > 0 Then Result := StringReplace(Result, '零兆', '兆', [rfReplaceAll]);
If Pos('零億', Result) > 0 Then Result := StringReplace(Result, '零億', '億', [rfReplaceAll]);
If Pos('零萬', Result) > 0 Then Result := StringReplace(Result, '零萬', '萬', [rfReplaceAll]);
If Pos('零元', Result) > 0 Then Result := StringReplace(Result, '零元', '元', [rfReplaceAll]);
If Pos('兆億', Result) > 0 Then Result := StringReplace(Result, '兆億', '兆', [rfReplaceAll]);
If Pos('億萬', Result) > 0 Then Result := StringReplace(Result, '億萬', '億', [rfReplaceAll]);
If Pos('兆萬', Result) > 0 Then Result := StringReplace(Result, '兆萬', '兆', [rfReplaceAll]);
Finally t.Free;
s.Free;
End;
End;
{=====================================================}
Function ChineseCurrencyToDecimal(ChineseCurrency: String): String; Var
s : TStringList;
i, ti : Integer; Begin s := TStringList.Create;
Try s.Delimiter := ',';
s.CommaText := '元=.,零=0,壹=1,貳=2,三=3,肆=4,伍=5,陸=6,柒=7,捌=8,玖=9';
ti := Length(ChineseCurrency) Div 2;
For i := ti Downto 1 Do
Result := s.Values[ChineseCurrency[i * 2 - 1] + ChineseCurrency[i * 2]] + Result;
Finally s.Free;
End;
End;
