problema con punto decimal
Publicado por Ártika (6 intervenciones) el 09/02/2006 13:34:31
Hola,
estoy utilizando la función Format, para que un número dado se presente en formato con punto decimal, pero al utilizar la función Format aunque el número sea entero aparece con números decimales, ¿Cómo puedo hacer para que únicamente aparezca el punto de las unidades de millar?
Así es como lo estoy haciendo.
'--------------
Private Sub Command1_Click()
Dim aleatorio As Integer
aleatorio = Int((10000 - 1) * Rnd + 1)
Text1.Text = aleatorio
If Text1 <> "" And IsNumeric(Text1) = True Then ''
Text1 = Format(Text1, "standard")
Else
MsgBox "No se un valor correcto", vbOKOnly
Text1 = ""
Text1.SetFocus
End If
End Sub
'---------------
Saludos.
estoy utilizando la función Format, para que un número dado se presente en formato con punto decimal, pero al utilizar la función Format aunque el número sea entero aparece con números decimales, ¿Cómo puedo hacer para que únicamente aparezca el punto de las unidades de millar?
Así es como lo estoy haciendo.
'--------------
Private Sub Command1_Click()
Dim aleatorio As Integer
aleatorio = Int((10000 - 1) * Rnd + 1)
Text1.Text = aleatorio
If Text1 <> "" And IsNumeric(Text1) = True Then ''
Text1 = Format(Text1, "standard")
Else
MsgBox "No se un valor correcto", vbOKOnly
Text1 = ""
Text1.SetFocus
End If
End Sub
'---------------
Saludos.
Valora esta pregunta
0