Tekboxda hesaplama problemi

[metinozlu]

Merhaba
Excelde textboxa matematiksel işlem yaptırtmak kaday gıcık(!) bir iş yok herhalde.bir türlü derdimi anlayamadı.
Yapmak istediğim işlemi aşağıda açıkladım. Üstadlar kısa sürede çözer.
Programda işlemler YTL olarak yapılmaktadır. Sonuçların işlemden sonra 100,52 şeklinde görünmesi gerekiyor.

İşlemler:
a=Yevmiye (hesaplamadan sonra otomatik yazılıyor)
b=yol gideri(hesaplamadan sonra otomatik yazılıyor)
c=Konaklama gideri(Kullanıcı veriyi giriyor)
d=Ptt masrafı(hesaplamadan sonra otomatik yazılıyor)

Hak ve masraf toplamı=(a+b+c+d)
Damga Vergisi=hak ve masraf toplamı*6/1000
Bu ay toplamı= Hak ve masraf toplamı – damga vergisi
e=Geçen ay toplamı(Kullanıcı veriyi giriyor)
bütün toplam= Bu ay toplamı+e
Bu basit(!) işlem hususunda yardımlarınızı bekliyorum.

 

[abdi]

Sanırım aşağıdaki örnek işinizi görecektir.

 

[metinozlu]

sayın abdi cevabınız için teşekkür ederim.
ancak damga vergisi sonucu doğru çıkmıyor.1000 toplamına göre 6 olması gereken değer 0,01 sonucunu üretiyor.asıl problem yaşadığm yer de burasıydı zaten.
tekrar bakarsanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Sn. abdi beyin dosyasındaki hesaplama kodlarını aşağıdaki ile değiştiriniz.

Private Sub CommandButton1_Click()
TextBox6.Value = Format(Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4), "#,##0.00")
TextBox7.Value = Format(CDbl(TextBox6 * 6 / 1000), "#,##0.00")
TextBox8.Value = Format(CDbl(TextBox6) - CDbl(TextBox7), "#,##0.00")
TextBox9.Value = Format(CDbl(TextBox8) + Val(TextBox5), "#,##0.00")
End Sub

 

[çilli]

metinozlu elinizdeki kodları aşağıdaki kodlarla değiştirin ?

Private Sub CommandButton1_Click()
TextBox6.Value = Format(Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4), "##0.00")
TextBox7.Value = Format(CDbl(TextBox6 * 6 / 1000), "##0.00")
TextBox8.Value = Format(CDbl(TextBox6) - CDbl(TextBox7), "##0.00")
TextBox9.Value = Format(CDbl(TextBox8) + Val(TextBox5), "##0.00")
End Sub


kolaygelsin istediğin bu dur inşallah