Mega Code Archive
Fatura tutarını metne çevirme
unit FaturaTutar;
interface
uses
SysUtils;
function FaturaTutarYaz(Tutar:Double):String;
var
Rakam :array [1..12] of string;
R001:array [0..9] of string=('','BİR ','İKİ ' ,'ÜÇ ' ,'DÖRT ','BEŞ ' ,'ALTI ' ,'YEDİ ' ,'SEKİZ ' ,'DOKUZ ' );
R010:array [0..9] of string=('','ON ' ,'YİRMİ ','OTUZ ','KIRK ','ELLİ ','ALTMIŞ ','YETMİŞ ','SEKSEN ','DOKSAN ');
R100:array [0..9] of string=('','' ,'İKİ ' ,'ÜÇ ' ,'DÖRT ','BEŞ ' ,'ALTI ' ,'YEDİ ' ,'SEKİZ ' ,'DOKUZ ' );
implementation
function FaturaTutarYaz(Tutar:Double):String;
var
Sayac,Hane,RakamIndex:integer;
FaturaText,TutarText:String;
begin
TutarText:=FloatToStr(Tutar);
Hane:=Length(TutarText);
FaturaText:='';
for Sayac:=1 to Hane do
begin
Rakam[Sayac]:='';
RakamIndex:=StrToInt(Copy(TutarText,Hane-Sayac+1,1));
case Sayac of
1:Rakam[Sayac]:=R001[RakamIndex];
2:Rakam[Sayac]:=R010[RakamIndex];
3:Rakam[Sayac]:=R100[RakamIndex]+'YÜZ ';
4:Rakam[Sayac]:=R001[RakamIndex]+'BİN ';
5:Rakam[Sayac]:=R010[RakamIndex];
6:Rakam[Sayac]:=R100[RakamIndex]+'YÜZ ';
7:Rakam[Sayac]:=R001[RakamIndex]+'MİLYON ';
8:Rakam[Sayac]:=R010[RakamIndex];
9:Rakam[Sayac]:=R100[RakamIndex]+'YÜZ ';
10:Rakam[Sayac]:=R001[RakamIndex]+'MİLYAR ';
11:Rakam[Sayac]:=R010[RakamIndex];
12:Rakam[Sayac]:=R100[RakamIndex]+'YÜZ ';
end;
FaturaText:=Rakam[Sayac]+FaturaText;
end;
Result:=FaturaText;
end;
end.