Советы по Delphi



Число строкой VI


Еще два решения конвертации денежной суммы на английском языке

Function HundredAtATime(TheAmount:Integer):String;
var
TheResult : String;Begin
TheResult := '';TheAmount := Abs(TheAmount);While TheAmount > 0 do BeginIf TheAmount >= 900 Then BeginTheResult := TheResult + 'Nine hundred ';TheAmount := TheAmount - 900;End;If TheAmount >= 800 Then BeginTheResult := TheResult + 'Eight hundred ';TheAmount := TheAmount - 800;End;If TheAmount >= 700 Then BeginTheResult := TheResult + 'Seven hundred ';TheAmount := TheAmount - 700;End;If TheAmount >= 600 Then BeginTheResult := TheResult + 'Six hundred ';TheAmount := TheAmount - 600;End;If TheAmount >= 500 Then BeginTheResult := TheResult + 'Five hundred ';TheAmount := TheAmount - 500;End;If TheAmount >= 400 Then BeginTheResult := TheResult + 'Four hundred ';TheAmount := TheAmount - 400;End;If TheAmount >= 300 Then BeginTheResult := TheResult + 'Three hundred ';TheAmount := TheAmount - 300;End;If TheAmount >= 200 Then BeginTheResult := TheResult + 'Two hundred ';TheAmount := TheAmount - 200;End;If TheAmount >= 100 Then BeginTheResult := TheResult + 'One hundred ';TheAmount := TheAmount - 100;End;If TheAmount >= 90 Then BeginTheResult := TheResult + 'Ninety ';TheAmount := TheAmount - 90;End;If TheAmount >= 80 Then BeginTheResult := TheResult + 'Eighty ';TheAmount := TheAmount - 80;End;If TheAmount >= 70 Then BeginTheResult := TheResult + 'Seventy ';TheAmount := TheAmount - 70;End;If TheAmount >= 60 Then BeginTheResult := TheResult + 'Sixty ';TheAmount := TheAmount - 60;End;If TheAmount >= 50 Then BeginTheResult := TheResult + 'Fifty ';TheAmount := TheAmount - 50;End;If TheAmount >= 40 Then BeginTheResult := TheResult + 'Fourty ';TheAmount := TheAmount - 40;End;If TheAmount >= 30 Then BeginTheResult := TheResult + 'Thirty ';TheAmount := TheAmount - 30;End;If TheAmount >= 20 Then BeginTheResult := TheResult + 'Twenty ';TheAmount := TheAmount - 20;End;If TheAmount >= 19 Then BeginTheResult := TheResult + 'Nineteen ';TheAmount := TheAmount - 19;End;If TheAmount >= 18 Then BeginTheResult := TheResult + 'Eighteen ';TheAmount := TheAmount - 18;End;If TheAmount >= 17 Then BeginTheResult := TheResult + 'Seventeen ';TheAmount := TheAmount - 17;End;If TheAmount >= 16 Then BeginTheResult := TheResult + 'Sixteen ';TheAmount := TheAmount - 16;End;If TheAmount >= 15 Then BeginTheResult := TheResult + 'Fifteen ';TheAmount := TheAmount - 15;End;If TheAmount >= 14 Then BeginTheResult := TheResult + 'Fourteen ';TheAmount := TheAmount - 14;End;If TheAmount >= 13 Then BeginTheResult := TheResult + 'Thirteen ';TheAmount := TheAmount - 13;End;If TheAmount >= 12 Then BeginTheResult := TheResult + 'Twelve ';TheAmount := TheAmount - 12;End;If TheAmount >= 11 Then BeginTheResult := TheResult + 'Eleven ';TheAmount := TheAmount - 11;End;If TheAmount >= 10 Then BeginTheResult := TheResult + 'Ten ';TheAmount := TheAmount - 10;End;If TheAmount >= 9 Then BeginTheResult := TheResult + 'Nine ';TheAmount := TheAmount - 9;End;If TheAmount >= 8 Then BeginTheResult := TheResult + 'Eight ';TheAmount := TheAmount - 8;End;If TheAmount >= 7 Then BeginTheResult := TheResult + 'Seven ';TheAmount := TheAmount - 7;End;If TheAmount >= 6 Then BeginTheResult := TheResult + 'Six ';TheAmount := TheAmount - 6;End;If TheAmount >= 5 Then BeginTheResult := TheResult + 'Five ';TheAmount := TheAmount - 5;End;If TheAmount >= 4 Then BeginTheResult := TheResult + 'Four ';TheAmount := TheAmount - 4;End;If TheAmount >= 3 Then BeginTheResult := TheResult + 'Three ';TheAmount := TheAmount - 3;End;If TheAmount >= 2 Then BeginTheResult := TheResult + 'Two ';TheAmount := TheAmount - 2;End;If TheAmount >= 1 Then BeginTheResult := TheResult + 'One ';TheAmount := TheAmount - 1;End;End;HundredAtATime := TheResult;End;

Function Real2CheckAmount(TheAmount:Real):String;
Var
IntVal : LongInt;TmpVal : Integer;TmpStr,RetVal : String;begin
TheAmount := Abs(TheAmount);
{ центы }TmpVal := Round(Frac(TheAmount) * 100);IntVal := Trunc(TheAmount);TmpStr := HundredAtATime(TmpVal);If TmpStr = '' Then TmpStr := 'Zero ';RetVal := TmpStr + 'cents';If IntVal > 0 Then RetVal := 'dollars and ' + RetVal;
{ сотни }TmpVal := Round(Frac((IntVal * 1.0) / 1000.0) * 1000);IntVal := Trunc((IntVal * 1.0) / 1000.0);TmpStr := HundredAtATime(TmpVal);RetVal := TmpStr + RetVal;
{ тысячи }TmpVal := Round(Frac((IntVal * 1.0) / 1000.0) * 1000);IntVal := Trunc((IntVal * 1.0) / 1000.0);TmpStr := HundredAtATime(TmpVal);If TmpStr <> '' ThenRetVal := TmpStr + 'Thousand ' + RetVal;
{ миллионы }TmpVal := Round(Frac((IntVal * 1.0) / 1000.0) * 1000);IntVal := Trunc((IntVal * 1.0) / 1000.0);TmpStr := HundredAtATime(TmpVal);If TmpStr <> '' ThenRetVal := TmpStr + 'Million ' + RetVal;
{ миллиарды }TmpVal := Round(Frac((IntVal * 1.0) / 1000.0) * 1000);IntVal := Trunc((IntVal * 1.0) / 1000.0);TmpStr := HundredAtATime(TmpVal);If TmpStr <> '' ThenRetVal := TmpStr + 'Billion ' + RetVal;
Real2CheckAmount := RetVal;end;
<


Содержание  Назад  Вперед