Foros del Web » Programación para mayores de 30 ;) » .NET »

no suma los decimales en textbox

Estas en el tema de no suma los decimales en textbox en el foro de .NET en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 29/05/2011, 12:46
 
Fecha de Ingreso: noviembre-2010
Ubicación: madrid
Mensajes: 478
Antigüedad: 9 años
Puntos: 5
Pregunta no suma los decimales en textbox

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
  #2 (permalink)  
Antiguo 29/05/2011, 12:51
Avatar de bieres  
Fecha de Ingreso: marzo-2011
Mensajes: 63
Antigüedad: 8 años, 8 meses
Puntos: 5
Respuesta: no suma los decimales en textbox

Hola, prueba a añadir esto, eso a mi me pasa a veces segun la version de NET framework que uses.
Código:
Val(TextTotal8.Text.Replace(".", ","))
  #3 (permalink)  
Antiguo 29/05/2011, 12:59
 
Fecha de Ingreso: noviembre-2010
Ubicación: madrid
Mensajes: 478
Antigüedad: 9 años
Puntos: 5
Respuesta: no suma los decimales en textbox

nada, probado pero no ... sigue igual...joer no entiendo...
  #4 (permalink)  
Antiguo 29/05/2011, 14:51
 
Fecha de Ingreso: noviembre-2010
Ubicación: madrid
Mensajes: 478
Antigüedad: 9 años
Puntos: 5
Respuesta: no suma los decimales en textbox

arreglado, para quien le pueda servir aporto....
'aquí saco el total del iva en los textbox correspondientes
Public Sub multiplicabaseimp()
Dim total1 As Decimal = 0
total1 = CDec(CStr(Val(TextBImp18.Text) * 1.18))
TextTotal18.Text = Format(Format(total1, "##,##0.00").Replace(".", ","))

Dim total2 As Decimal = 0
total2 = CDec(CStr(Val(TextBImp8.Text) * 1.08))
TextTotal8.Text = Format(Format(total2, "##,##0.00").Replace(".", ","))

Dim total3 As Decimal = 0
total3 = CDec(CStr(Val(TextBImp4.Text) * 1.04))
TextTotal4.Text = Format(Format(total3, "##,##0.00").Replace(".", ","))

Dim total4 As Decimal = 0
total4 = CDec(CStr(Val(TextBImp2.Text) * 1.02))
TextTotal2.Text = Format(Format(total4, "##,##0.00").Replace(".", ","))


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)))
total = total1 + total2 + total3 + total4
TextTotal.Text = Format(Format(total, "##,##0.00"))

End If
End I

Etiquetas: suma, textbox
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 16:47.