hola amigos, como siempre por aquí...se que quizás es algo sencillo, pero no logro dar con el problema, tengo un text box que muestra la suma de otros, estos otros son decimales...el caso es que la suma me sale bien, pero le faltan los decimales...no se por que solo sale la cifra así;
1.400,00
quiere decir los decimales están...pero pone 00 no los suma la cifra real es;
1.400,14
aquí va el código gracias como siempre
Public Sub multiplicabaseimp()
Dim total1 As Decimal = 0
total1 = CDec(CStr(Val(TextBImp18.Text) * 1.18))
TextTotal18.Text = Format(Format(total1, "##,##0.00"))
Dim total2 As Decimal = 0
total2 = CDec(CStr(Val(TextBImp8.Text) * 1.08))
TextTotal8.Text = Format(Format(total2, "##,##0.00"))
Dim total3 As Decimal = 0
total3 = CDec(CStr(Val(TextBImp4.Text) * 1.04))
TextTotal4.Text = Format(Format(total3, "##,##0.00"))
Dim total4 As Decimal = 0
total4 = CDec(CStr(Val(TextBImp2.Text) * 1.02))
TextTotal2.Text = Format(Format(total4, "##,##0.00"))
If CDbl(TextoTRDTO.Text) = 0 Then
If CDbl(TextotrImp.Text) = 0 Then
Dim total As Decimal = 0
total = CDec((Val(TextTotal18.Text) + Val(TextTotal8.Text) + Val(TextTotal4.Text) + Val(TextTotal2.Text)))
TextTotal.Text = Format(Format(total, "##,##0.00"))
End If
End If
