rtika
09 de Febrero del 2006

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.

axelopez
09 de Febrero del 2006

corri el codigo y ya entendi
tu quieres que salga el entero sin decimales pero si el divisor de millar

text1 = format(text1, "#,###,##0")
en mi pais el divisor de millar es la "," si en el tuyo es el "." solo cambialo

salu2

rtika
09 de Febrero del 2006

Muuuchas grácias!! si que me funciona.

Saludos.