VBA- Virgülden sonra hesap yapaken sapıtması

[grandmaster55]

Merhabalar sevgili dostlarım bir muhasebe programı üzerinde çalışma gerçekleştiriyordum fakat şöyle bir sorunla karşı karşıya kaldım.

Ürünün fiyatını girdiğimde yandaki textbox 'un value değeri 18 ile çarpıp 100'e bölüyor yani KDV hesaplıyor kısacası. her şey düzgün çalışıyor fakat virgüllü sayılar geldiğinde noktayı yanlış yere koyduğu için yanlış hesaplıyor. Mesela 7,63 'ün %18'ini hesaplarken çok alakasız bir sonuç veriyor fakat 7,6'yı gayet düzgün hesaplıyor.

ilgili textboxun kodu şu şekilde

Private Sub txtfiyati_change()

txtkdv.value = ((txttutar.value * 18)/100)

End Sub

Sayının virgülden sonra 2.sayılardan sonra sapıtmasının sebebi ne olabilir , 7,63 veya 7,633 gibi sayılarda sonuçlar çok yanıltıcı çıkıyor hesapladığı sonuçlardan bazı örnekler göstermek isterim 7,63 için bulduğu sonuç 137.34 Bulması gereken sonuç ise 1.3734

Noktayı yanlış yere koyuyor bu sebepten dolayı sayı çok büyük çıkıyor bunu nasıl düzeltebilirim ?

 

[Muzaffer Ali]

Merhaba.

Deneyiniz.

Private Sub txtfiyati_change()
    txtkdv.Value = CDbl(txtTutar.Value) * 0.18
End Sub

 

[grandmaster55]

Merhaba.

Deneyiniz.

Private Sub txtfiyati_change()
    txtkdv.Value = CDbl(txtTutar.Value) * 0.18
End Sub

Kodu denedim ve bir şeyi farketmemi sağladı , Program virgül koyması gereken yerde nokta koyduğu için bu işlem hatası oluşuyor bunu düzeltmem gerekiyor. Yardımınız için çok minnettarım Allah işinizi rastgetirsin

 

[Muzaffer Ali]

Allah razı olsun. Bilmukabele.