Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/05/2010, 18:34
hunter18
 
Fecha de Ingreso: junio-2008
Mensajes: 343
Antigüedad: 16 años, 4 meses
Puntos: 4
Problema con formato decimal con vb6.0 - URGENTE

Para resumir quiero hacer este calculo tan simple
Hago esto:
Código:
Private Sub Command1_Click()
MsgBox Format(Val("100,52") * Val(1), "currency")
End Sub
Los decimales se pierden cuando en lugar de punto(0.00) se utiliza coma(0,00) por ejemplo.

MsgBox Format(Val("100.52") * Val(1), "currency")
resultado=100.52

MsgBox Format(Val("100,52") * Val(1), "currency")
resultado=100.00

Se pierden 0.52, logicamente el valor 100.52 se ingresara desde un Text1 y como sabran la configuracion regional varia en los distintos paises algunos utilizan coma y otro punto, como hacer algo generico ya que solo funciona al utilizar punto, pueden probar en su computador haber que resultado les sale?