kuruşları hesaplama

[wqazx]

Herkese merhaba
Çok uğraştım ama bir türlü yapamadım.

textbox1 = textbox2-(textbox3+textbox4+textbox5)

Ancak, kuruşları da hesaplaması lazım.Yani

textbox1 = 457,50-(100,00+125,25+175,75+boş(textbox5) )

 

[mraltin]

aynı sorun mu bilmiyorum ama bende yasamistim.saolsun moderatorler yardimci oldu.bildigim kaadriyla TextBox1.Text olmamasi lazim TextBox ın metin degil TextBox1.Value Gibi olması lazım.

 

[class37]

Merhaba

TextBox1 = Format(CCur(TextBox2.Value) + CCur(TextBox3.Value), "#,##0.00")

 

[xxrt]

Sayın Raider Buna ait yazdığı bir kodu size uyarladım..

On Error Resume Next
    a = Round(TextBox3, 2)
    a = WorksheetFunction.Substitute(a, ",", ".")
    b = Round(TextBox4, 2)
    b = WorksheetFunction.Substitute(b, ",", ".")
    c = Round(TextBox5, 2)
    c = WorksheetFunction.Substitute(c, ",", ".")
    y = Round(TextBox2, 2)
    y = WorksheetFunction.Substitute(y, ",", ".")
    z = (Val(a) + Val(b) + Val(c)) - Val(y)
    z = WorksheetFunction.Substitute(z, ".", ",")
    TextBox1 = z

 

[wqazx]

Merhaba

TextBox1 = Format(CCur(TextBox2.Value) + CCur(TextBox3.Value), "#,##0.00")

Sn klass37 textboxlardan biri boş olduğu zaman hata veriyor

 

[wqazx]

Sayın Raider Buna ait yazdığı bir kodu size uyarladım..

On Error Resume Next
    a = Round(TextBox3, 2)
    a = WorksheetFunction.Substitute(a, ",", ".")
    b = Round(TextBox4, 2)
    b = WorksheetFunction.Substitute(b, ",", ".")
    c = Round(TextBox5, 2)
    c = WorksheetFunction.Substitute(c, ",", ".")
    y = Round(TextBox2, 2)
    y = WorksheetFunction.Substitute(y, ",", ".")
    z = (Val(a) + Val(b) + Val(c)) - Val(y)
    z = WorksheetFunction.Substitute(z, ".", ",")
    TextBox1 = z

Sn xxrt çalıştırdım çok teşekkürler.İyi çalımalar