Kdv oranlarını hesaplamak

[yavuz829]

Merhaba arkadaşlar ekli dosyamda KDV oranı TextBoksına KDV oranını yazdığımız zaman bu oranı KDV dahil tutara çarpsın ve KDV oranı artı 100 ye bölsün. çıkan rakamı KDV TextBoksunda göstersin.

Örneğin 500*8/108 veya 600*18/118

 

[Emir Hüseyin Çoban]

. . .

Kırmızı ile belirttiğim alanı değiştirerek deneyiniz.

Private Sub TextBox5_Change()
deg1 = IIf(TextBox5 = "", 0, TextBox5)
deg2 = IIf(TextBox10 = "", 0, TextBox10)
deg3 = IIf(TextBox3 = "", 0, TextBox3)
deg4 = IIf(TextBox24 = "", 0, TextBox24)

deg6 = IIf(TextBox11 = "", 0, TextBox11)
TextBox11 = Format(Replace(CDbl(deg1) / [COLOR="Red"](deg2 + 100)[/COLOR] * CDbl(deg2), ".", ","), "#,##0.00")

End Sub

. . .

 

[vardar07]

Merhaba arkadaşlar ekli dosyamda KDV oranı TextBoksına KDV oranını yazdığımız zaman bu oranı KDV dahil tutara çarpsın ve KDV oranı artı 100 ye bölsün. çıkan rakamı KDV TextBoksunda göstersin.

Örneğin 500*8/108 veya 600*18/118

Merhaba .Arkadaşlar sayfa güncellemesinden dolayı cevabı görmediğim için cevap yazmıştım.Benim cevap iptal.

 

[yavuz829]

Çok teşekkürler hocam. Hocam Kdv li tutardan kdv düşerek kdv siz TextBoxta gösterebilirmiyiz. TextBox5-TextBoxt11 TextBox25 de göstersin.

 

[Emir Hüseyin Çoban]

. . .

Private Sub TextBox11_Change()
On Error Resume Next
TextBox25 = TextBox5 - TextBox11
End Sub

. . .

 

[yavuz829]

Çok, çok teşekkürler hocam. Ellerinize sağlık tam istediğim gibi oldu.