Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

Ytl dönüştür

Function tform1.tltoytl(PARA:CURRENCY):CURRENCY; Var Lira, Kurus, Kalanlar : LongInt; begin // İlk olarak Yeni TL kısmını alalım... Lira := Trunc(Para / 1000000); // Geri kalanları ayırıp değerlendirmeye alalım... Kalanlar := Trunc(Para - (Lira * 1000000)); // Kalanların ilk iki hanesi Yeni Kuruş Kurus := Trunc(Kalanlar/10000); // Kalanların 0.5'den büyükse Kuruşa (+1) ekle... Kalanlar := Trunc(Kalanlar - (Kurus * 10000 )); If (Kalanlar-5000) >= 0 then Inc(Kurus); Result := Lira + (Kurus/100); end; Kullanımı edit2.Text:= CurrToStr(TLTOYTL(StrToCurr(edit1.Text)));