Visual Basic - Decimales. usar (.) y no la (,)

Life is soft - evento anual de software empresarial
 
Vista:

Decimales. usar (.) y no la (,)

Publicado por Ferdinan (14 intervenciones) el 28/01/2005 13:05:42
En la carga de nº mi problema es que cuando cargo los decimales quiero usar el punto que esta a la derecha con los nº y no la coma.
Cuando ingreso los decimales y pongo el punto me toma como entero directamente. Pero no quiero cambiar la configuracion de la maquina.
Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Decimales. usar (.) y no la (,)

Publicado por Nn (1 intervención) el 28/01/2005 14:44:13
Si no quieres cambiar la configuración de la máquina entonces cambiale el formato al número, es decir lo ingresas con punto pero por código lo cambias a coma. T e envión un pequeño código ojala te sirva

Private Sub Command1_Click()
Text1.Text = strtran(Text1.Text)
End Sub

Function strtran(dato As String) As Double
Dim xx As String, ii As Integer, ij As Integer

xx = Trim(CStr(dato))
ii = InStr(1, xx, \".\")
If ii = 0 Then
\'ok
strtran = CDbl(dato)
Else
\'arreglar
If ii = 1 Then
strtran = CDbl(Mid(xx, ii + 1, 2))
Else
strtran = CDbl(Mid(xx, 1, ii - 1) & \",\" & Mid(xx, ii + 1, 3))
End If
End If
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Decimales. usar (.) y no la (,)

Publicado por bla (230 intervenciones) el 29/01/2005 20:55:35
Esta es una forma rápida de evitar que introduzcan la coma en una casilla numérica
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(",") Then KeyAscii = Asc(".")
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Decimales. usar (.) y no la (,)

Publicado por Ferdinan (14 intervenciones) el 31/01/2005 11:06:16
gracias a los 2.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar