Error al multiplicar decimales en textbox
Llevo días buscando una solución y no la encuentro por ningún lado espero puedan ayudarme, el caso es que estoy haciendo una calculadora para llevar el control de ingresos en efectivo, todo va muy bien hasta que llego a las monedas de centavos.
Tengo dos textbox, uno donde captura la cantidad de monedas de 10 centavos (cdiec) y otro donde muestra el monto total de las monedas (mdiec), el problema esta que cuando hace el calculo me devuelve el valor con una mugrosa "coma" "0,1" "1,5" en lugar de .10 0 1.5 y a la hora de sumar la cantidades lo toma como entero.
Ya resvise mi configuración regional de win y de excel y nada :(
Aprecio muchos su ayuda, tal ves sea muy sencillo pero estoy bloqueado. Gracias
If IsNumeric(bcapturaefectivo.mdiec) Then T13 = CDec(bcapturaefectivo.mdiec)
CALCULO = T1 + T2 + T3 + T4 + T5 + t6 + T7 + T8 + T9 + T10 + T11 + T12 + T13
Private Sub cdiec_Change()
FormulaR1C1 = cdiec
mdiec = Val(cdiec) * 0.1
End Sub
1 Respuesta
Por si te da una idea. Yo tengo en la configuración regional la coma como separador de decimales, por lo que si tengo un cuadro de texto donde escribo una cantidad decimal( para mí)
Puedes ver que el cursor aún está en el control Texto0. Al pulsar Enter( aunque podría ser en cualquier otro evento)
Me ha reemplazado la coma por un punto y uso
Texto2 = Replace([Texto0], ",", ".")
