Mega Code Archive

Ytl mi kuruşmu

******************************************************** ******************************************************** *** '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 ----------------------------------------------------------------------- *)