Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/10/2011, 10:41
guillebomtrasmiti
 
Fecha de Ingreso: noviembre-2010
Ubicación: madrid
Mensajes: 478
Antigüedad: 13 años, 6 meses
Puntos: 5
Pregunta imposible mantener decimales textbox

Hola amigos...por aquí, ando, tengo un texbox que pone 200,18.....sale de una suma de un grid...hasta ahí todo correcto, pero tengo otro textbox que al ponerle una cifra; por ejemplo 5...pues se lo sumo y me lo deja en 205...y me obvia el coma 18....no se porque no pone los decimales....este es mi código;

Código:
 Dim otroimp As Double
        Dim total As Double
        Dim finalimp As Double
        If TextotrImp.Text = "" Or TextotrImp.Text = "0" Then
            otroimp = CDec(Val(TextotrImp.Text))
        Else
            otroimp = CDbl(Val(TextotrImp.Text))
            total = CDbl((Val(TextTotal.Text)))
            finalimp = total + otroimp
            TextTotal.Text = Format(finalimp, "##,##0.00").Replace(".", ",")
he probado poniendo todo en decimal..y tampoco