| Pregunta: | 2603 - SOBRE NÚMEROS DECIMALES |
| Autor: | Cristina Durante |
| Quisiera saber si es posible introducir en visual basic numeros decimales con la coma como símbolo decimal, dado que al introducir numeros con coma me toma como entero y al introducir con punto, sí me toma como decimal. En la configuración de windows, está la coma como decimal y el punto para los miles y en access tambien, pero cuando entro en visual la configuracion es al revés. Gracias | |
| Respuesta: | Al Camms |
| Cris: Usa el comando replace: ---------------------------------------------------------------------- dim sValor as string, siValor as single sValor = "3425,243" siValor = Val(Replace(sValor,",",".")) ---------------------------------------------------------------------- Saludos. | |
| Respuesta: | Fernando Ise |
| Yo para solucionar tu problema uso la siguiente funcion, en un modulo estandar. Public Function Convertir(TextoIni$) Dim Car$, J% L = Len(TextoIni$) Num$ = "" For J = 1 To L Car$ = Mid(TextoIni, J, 1) If Car$ <> "," Then Num$ = Num$ & Car$ Else Num$ = Num$ & "." End If Next J End Function Para usarla debes declarar public la variable NUM$ convertir(text1.text) Numero = val(num$) Espero te sirva. Suerte. | |