Textboxlarda Çıkarma İşlemi

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Aşağıdaki kodlarda Textbox'da çıkarma işleminde sonuç yanlış çıkıyor. Textbox20'nin değeri 115,56, Textbox21'in değeri 105,56 sonuç 10 çıkması gerekirken, 11451 çıkıyor. Bazı örnekler bulup düzeltmeye çalıştım ama sonuç hep yanlış çıkıyor. Yardımcı olabilir misiniz.

eski_özel_hiz_taz = CDbl(TextBox21.Value)
yeni_özel_hiz_taz = CDbl(TextBox20.Value)
TextBox26.Value = yeni_özel_hiz_taz - eski_özel_hiz_taz

 

[Greenblacksea53]

Dim eski_özel_hiz_taz  As Double, yeni_özel_hiz_taz , sonuc As Double

eski_özel_hiz_taz  = TextBox21.Value
yeni_özel_hiz_taz  = TextBox20.Value
sonuc = eski_özel_hiz_taz - yeni_özel_hiz_taz

TextBox26.Value= FormatNumber(sonuc, 2)

Şeklinde sorunuzu çözer.

 

[ahmed_ummu]

Dim eski_özel_hiz_taz  As Double, yeni_özel_hiz_taz , sonuc As Double

eski_özel_hiz_taz  = TextBox21.Value
yeni_özel_hiz_taz  = TextBox20.Value
sonuc = eski_özel_hiz_taz - yeni_özel_hiz_taz

TextBox26.Value= FormatNumber(sonuc, 2)

Şeklinde sorunuzu çözer.

Çok teşekkürler Çözüldü.