KDV de Kuruş

[teksen]

Arkadaşlar merhaba,

Ekteki dosyamda TextBox1 e toplamı yazdıktan sonra KDV ve Genel toplamı kendisi hesaplayıp TextBox2 ve TextBox3 e yazıyor.

Fakat para formatını bir türlü tutturamıyorum.

değerler nedense çok küçük veya çok büyük çıkıyor.

kodlarda nasıl bir değişiklik yapmam gerekir acaba?

şimdiden teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Kodlarınızı şu şekilde revize ediniz.

Kullandığını Val fonksiyonu, string içindeki sayıları, uygun tipte numerik (sayısal) bir değere döndürür. CDbl fonksiyonu ise; eğer, string sayısal bir değer ifade ediyorsa, bu stringin, Double sayı tipine dönüşümünü sağlar. Double sayı tipinde, ondalık rakamları da istediğiniz şekilde görebilirsiniz.

Private Sub TextBox1_Change()
    With TextBox1
        If IsNumeric(.Text) Then
            TextBox2 = Format(CDbl(.Text) * 0.18, "#,##0.00")
            TextBox3 = Format(CDbl(.Text) + CDbl(TextBox2), "#,##0.00")
        Else
            TextBox2 = Empty
            TextBox3 = Empty
        End If
    End With
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With TextBox1
        If IsNumeric(.Text) Then
            .Text = Format(CDbl(.Text), "#,##0.00")
        End If
    End With
End Sub

 

[teksen]

Çok teşekkür ederim.Elinize sağlık.