+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ondalık basamak sorunu (/konu-ondalik-basamak-sorunu.html)
Ondalık basamak sorunu - estapan - 28/12/2012
Selam,
' **** Döngü başlangıcı
For I = 1 To Z Step 1
asd = asd + Round(Par, 0)
N = BordroNO.Value
Tar = DateAdd("m", I, tar1)
rs.AddNew
rs("BordroNO") = N
rs("Alacak") = Toplam.Value / Taksit.Value
rs("Vade") = Tar
rs("Tarih") = Tarih
rs("KKNO") = KKNO
rs("İşlemNo") = [İşlemNO]
rs("EvrakNO") = [EvrakNO]
rs("Kaynak") = [Kaynak]
rs("Açıklama") = [Toplam] & " TL.lik Harcamanın " & [Taksit] & " / " & [I] & " Taksidi"
rs.Update
Next I
yukardaki VB kodunda Alacak hanesi sonuç ondalıklı olunca hata veriyor. Tam sayılarda çalışıyor. Sonuç ondalıklıda olsa Alacak hanesine nasıl işleyebiliriz. Cevap verecek arkadaşlara şimdiden teşekkür.
Not: Kod taksit yapmak için hazırlanmıştır.
Cvp: Ondalık basamak sorunu - mcmaho - 28/12/2012
örnek eklerseniz daha kolay yardımcı oluruz.
Cvp: Ondalık basamak sorunu - estapan - 29/12/2012
Arkadaşlar,
Biraz araştırmamla Round(*) koduyla bu işin çözüleceğini öğrendim . Şöyleki Round(x,2) burdaki 2 ondalık basamak adedini belirliyor 2 basamak için 2, 3 basamak için 3 eğer hiç ondalık istemiyorsak 0 gibi.
Sorun çözülmüştür yardım etmek isteyen arkadaşlara teşekkürler.