Bu function iş bitirir. kolay gelsin.Kod benim değil sadece faydalanmanız açıdan yazdım...
Function TYtl_Ana.TLtoYTL(Para : Currency) : Currency;
// Tam sayıdan sonra en fazla 5 rakam olacak...
// Programlar
// 1, 5, 10, 25, 50 Yeni Kuruş'a;
// 1, 5, 10, 20, 50, 100 Yeni Türk Lirası'na uyumlu hale getirilecek
// 1.000.000 = 1 Lira = 100.0000 Kuruş
// 100.000 = 0 Lira = 10.0000 Kuruş
// 10.000 = 0 Lira = 1.0000 Kuruş
// 5.001 = 0 Lira = 0.5001 Kuruş // 1 Kuruşa Tamamlanacak...
// 5.000 = 0 Lira = 0.5000 Kuruş // ve altı dikkate alınmayacak...
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-4999) > 0 then Inc(Kurus);
Result := Lira + (Kurus/100);
end;
Edit2.Text := CurrToStr(TLtoYTL(StrToCurr(Edit1.Text)));
Kolay Gelsin...