Projemde 2 tane editbox.
1. Ürün Fiyatı (Brüt) - Editbox1
2. Ürün Fiyatı (Net) - Editbox2
3. KDV Oranı - Combobox
Combobox içerisinde 3 tane kdv oranı var. 0,7 ve 19 (% olarak). Kullanıcı brüt kısmına 100 girdi diyelim. KDV oranından da 7 seçti diyelim. Net fiyatı 93 olacak. Buraya kadar hesaplamalarda problemim yok. Aşağıdaki şekilde hesaplıyorum. Fakat problemim şurada başlıyor.
Kullanıcı hep tam sayılı ürün alıp satmıyorki.. Ürün brüt fiyatı 10,6 girdi diyelim. KDV 7 seçti ve net 9,858 yazıyor.
Şuan 2 tane problemim var.
1-) Ürün brüt fiyat girişinde kullanıcı ".xx" ondalık kısmına sadece parasal olarak giriş yapabilsin. Yani ondalık 2 haneden fazla giremesin(kuruş)
2-) Sonuç çıkan kısımda 9,858 yerine 9,85 yazsın. Ya da bu parasal işlemlerde nasıl yapılıyorsa öyle yapsın..
Yardımlarınızı bekliyorum
Kod: Tümünü seç
procedure TForm5.KDVHesapla;
var
sayi1,sayi2: Double;
begin
try
if EditPrice.GetTextLen > 0 then
// not empty
sayi1 := strtofloat(EditPrice.Text)
else
// empty
sayi1:=0;
if KDV1.GetTextLen > 0 then
// not empty
sayi2 := strtofloat(KDV1.Text)
else
// empty
sayi2:=0;
EditNumberEdit3.Text := floattostr((sayi1 * sayi2)/100);
EditNet.Text:= FloatToStr(StrToFloat(EditPrice.Text) - StrToFloat(EditNumberEdit3.Text));
except;
end;
end;