convertir un decimla(con coma) a un decimal (con punto)
tengo un resultado tal como 3,50 y quiero convertorlo a 3.50
también quisiera saber como puedo hacer para que siempre que pulse la tecla , me salga un punto.
saludos y gracias
también quisiera saber como puedo hacer para que siempre que pulse la tecla , me salga un punto.
saludos y gracias
Para lo primero haces lo siguiente
resultado = replace(valor, ',', '.')
Esto funciona cuando el valor es de tipo texto.Busca todas las comas y las reemplaza por punto.
Para lo segundo en el evento keypress pones
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 44 Then ' el 44 es la coma
Keyascii=46 'lo que haces es marcar el punto
End If
End Sub
resultado = replace(valor, ',', '.')
Esto funciona cuando el valor es de tipo texto.Busca todas las comas y las reemplaza por punto.
Para lo segundo en el evento keypress pones
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 44 Then ' el 44 es la coma
Keyascii=46 'lo que haces es marcar el punto
End If
End Sub
