********************************************************
********************************************************
*** 'ARKADAŞLAR LÜTFEN KODBANK"TAN YARDIM İSTEMEYİN' ***
************* 'FORUMLARDAN YARDIM İSTEYİN' *************
********************************************************
********************************************************
Programlarımızda kullandığımız bir function. Kısa ve basit :)
function YTLKurus(E:Extended):String;
begin
if E < 1 then
Result := FloatToStr(Round(Frac(E)*100)) + ' YKrş'
else
Result := FormatFloat('#,##0.00', E) + ' YTL';
end;
Bu Fonksiyonda Bonus :)
function TLtoYTL(E:Extended):Extended;
begin
Result := E/1000000;
end;
(*
-----------------------------------------------------------------------
Şükrü Kansız
GEBİTEK (Gelişmiş Bilişim Teknolojileri)
Bilgisayar Programcısı - Proje Koordinatörü
sukruk@gebitek.com / www.gebitek.com
Tel: +90(212) 225 84 77 Fax: +90(212) 225 84 76
-----------------------------------------------------------------------
*)