delphi de ytl dönüşümü hakkında bilgi verebilirmisiniz...

[mcetin]

delphi de yapılmış olan bir mantık yada sistem var mı tl yi ytl ye dönüştürecek.995.000 TL yi 1 yeni kuruş
1.005.000 TL nin 1,01 YTL
1.501.000 TL 1,50 YTL
vb. işlemler nasıl bir sistemde gerçekleşir bilgilen dirirseniz sevinirim...

[mcetin]

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...

[TheLiandRi]

Merhaba
bende başka bir bilgi vereyim
projenizin windows'un Currency ayarlarından bağımsız çalışmasını istiyorsanız:

uses SysUtils;
{......}
begin
   CurrencyString:='YTL';
   CurrencyFormat:=4;
   CurrencyDecimals:=2;
end;

bu kodu yazdığınızda projenizin her tarafında bu ayarlar geçerli olacaktır.

[neoerhans]

Microsoft'un cıkardıgı YTL için bir patch var onu kurmanız yeterli.

[TheLiandRi]

neoerhans, mesajından alıntı:

Microsoft'un cıkardıgı YTL için bir patch var onu kurmanız yeterli.

sadece onu kurmak çözüm değil

[neoerhans]

Aslında Microsoftun patc'inin marifeti bildigim kadarı ile sadece TL 'yi YTL olarak birimini değiştirmesi yani senin DB'de kayıtlı olan Currency olarak kayıtlı olan data'ya tabikide bir şey yapmıyor :d