Delphi Yazı ile YTL Para Functionu
| ||||
/// —————————————————– ///
function rakyazf(tutar:real; tur:integer):string;
const
b1:ARRAY [1..9] of string =
(‘BİR’,'İKİ’,'ÜÇ’,'DÖRT’,'BEŞ’,'ALTI’,'YEDİ’,'SEKİ Z’,'DOKUZ’);
b2:ARRAY [1..9] of string =
(‘ON’,'YİRMİ’,'OTUZ’,'KIRK’,'ELLİ’,'ALTMIŞ’,'YETMİ Ş’,'SEKSEN’,'DOKSAN’);
b3:ARRAY [1..6] of string =
(‘KATRİLYON’,'TRİLYON’,'MİLYAR’,'MİLYON’,'BİN’,”) ;
var
gr:ARRAY [1..6] of string[3];
sn:ARRAY [1..6] of string;
bs:ARRAY [1..3] of integer;
tutars, tutart, tutark , sonuct, sonuck: string;
i,l: integer;
begin
tutars:=floattostr(tutar);
if pos(‘,’,tutars)=0 then tutars:=tutars+’,00′;
tutart:=copy(tutars,1,(pos(‘,’,tutars)-1));
tutark:=copy(tutars,(pos(‘,’,tutars)+1),2);
tutart:=stringofchar(’0′,(18-(length(trim(tutart))))) + tutart;
tutark:=tutark + stringofchar(’0′,( 2-(length(trim(tutark)))));
for i:=1 to 6 do gr:=copy(tutart,1+(3*(i-1)),3);
for l:=1 to 6 do
begin
bs[1]:=strtoint(copy(gr
,1,1));
if bs[1]<>0 then(if bs[1]<>1 then sn:=sn+b1[bs[1]]+’YÜZ’ else sn:=sn+’YÜZ’);
bs[2]:=strtoint(copy(gr,2,1));
if bs[2]<>0 then sn:=sn+b2[bs[2]];
bs[3]:=strtoint(copy(gr,3,1));
if bs[3]<>0 then sn:=sn+b1[bs[3]];
if length(trim(sn))<>0 then sn:=sn+b3;
end;
if sn[5]=’BİRBİN’ then sn[5]:=’BİN’;
for i:=1 to 6 do sonuct:=sonuct+sn;
if strtoint(copy(tutark,1,1))<> 0 then sonuck:=sonuck + b2[strtoint(copy(tutark,1,1))];
if strtoint(copy(tutark,2,1))<> 0 then sonuck:=sonuck + b1[strtoint(copy(tutark,2,1))];
if tur=0 then result:=sonuct + ‘. YTL , ‘ + sonuck + ‘. YKR ‘;
if tur=1 then result:=sonuct + ‘. YTL ‘;
if tur=2 then result:=sonuck + ‘. YKR ‘;
end;
/// —————————————————– ///
Fonksyonu işlem yapacağınız unit başına ekleyin ve devamında örnekteki şekilde kullanabilirsiniz.
Kullanımı
sayi :=125,45;
rakyazf(sayi,0); // YÜZYİRMİBEŞ. YTL, KIRKBEŞ YKR
rakyazf(sayi,1); // YÜZYİRMİBEŞ. YTL
rakyazf(sayi,2); // KIRKBEŞ. YKR
Etiketler : Parayı yazıya çevirmek, sayıyı yazıya çevirmek, YTL functionu, sayıyı ytl çevirme, sayıyı metne çevirmek, sayıyı ytl metne çevirmek
administrator2009-08-29 01:28:02
Benzer Yazılar:
- Yazılan Fiyatı Metine Çevirmek
- Merkez Bankasindan Gunluk Doviz Kurlarini Alma Kodu
- Formun Başlığına Kayan Yazı Ekleyen Kod
- Delphi ile Mp3 dosya çalmak çaldırmak
- Sayı
- İnternet Adresi Aktifmi Kontrol Etmek
- Delphi ile Excel Kullanımı
- Sayılara Binde Ayracı Eklemek
- Metin İçerisinden Bir Karakter Silmek
- Sitemizde Yazı yazmak İstermisiniz.
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...