Sonuç Yanlış Çıkıyor.

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile sonuç yanlış çıkıyor. 13.402,66 çıkması gerekirken, 1.340,266,06 çıkıyor. Textbox31 den gelen değer 120,00. Eğer 120 olarak değiştirirsem, sonuç doğru çıkıyor ama Textbox31'ta bazı değerlerde, ondalık kısım var. Kod aşağıdadır. Yardımcı olursanız sevinirim.

If .TextBox31.Value > 0 Then
Dim sonuc1 As Double
sonuc1 = (CDbl(Replace(.TextBox31.Value, ",", ".")) * katsayi * katsayi_carpani) / 100
ActiveCell.Offset(0, 5).Value = sonuc1
ActiveCell.Offset(0, 5).NumberFormat = "#,##0.00"
ActiveCell.Offset(0, 5).HorizontalAlignment = xlRight
Else
End If

 

[ahmed_ummu]

Şu şekilde de değiştirince sonuç doğru çıkıyor ama Textbox31'in bazı değerlerinde virgülden sonrası yok. Yani 120,56 bazen de 120 olabiliyor.

sonuc1 = (CDbl(Replace(.TextBox31.Value, ",", ".")) * katsayi * katsayi_carpani) / 10000

 

[Muzaffer Ali]

Merhaba.

sonuc1 = (CDbl(Replace(.TextBox31.Value, ",", ".")) * katsayi * katsayi_carpani) / 100

satırını aşağıdaki ile değiştirin.

sonuc1 = (CDbl(TextBox1.Value) * katsayi * katsayi_carpani) / 100

 

[ahmed_ummu]

Merhaba.

sonuc1 = (CDbl(Replace(.TextBox31.Value, ",", ".")) * katsayi * katsayi_carpani) / 100

satırını aşağıdaki ile değiştirin.

sonuc1 = (CDbl(TextBox1.Value) * katsayi * katsayi_carpani) / 100

Muzaffer Ali bey kodlar için teşekkürler. mesela Textbox31'in değeri 55 yani virgülden sonrası yok. Mesela Textbox31'in değeri 12,56, 120,00 böyle ise yani virgülden sonrası var ise sonucu doğru çıkartıyor. Ama Textbox31'in değeri 55 veya 120 virgülden sonrası yok ise sonuç yanlış çıkıyor. Eksik hesaplıyor.

 

[ahmed_ummu]

Tamam düzeldi Muzaffer Ali bey. Aynı kodlar iki ayrı modülde, ben diğer modüle yapıştırmışım. Çok teşekkürler.