Formato de numeros

Hola Mikel:

Una solución sencilla es:

numero = Right(("00" & CStr(numero)), 2)

Saludos!
Miguel


Mikel escribió:

Hola amigos!!

Tengo un contador que me gustaria que de 1 a 9 me gustaria que se mostrara
01,02. Para ello estoy utilizando la función FormatNumber pero no
acierto con la sintaxis correcta aun googleando. ¿Alguien conoce algun
codigo que me sirva?
Gracias y saludos!!

Yo utilizo esta función:
Str= string de entrada
Nummax = comprimento máximo da string de saida
Pad = caracter a colocar

Ex.
str = 1
NumMax = 3
Pad = 0

Resultado: 001


Function LeftPad(Str,NumMax,Pad)


If (Len(Str) <= 0) Then
LeftPad = ""
Exit Function
End If

If (NumMax <= 0) Then
LeftPad = Str
Exit Function
End If

If (Len(Pad) <= 0) Then
LeftPad = Str
Exit Function
End If

Dim i, aux
aux = ""
For i = 1 To NumMax - Len(Str)
aux = aux & Pad
Next

LeftPad = aux & Str

End Function

Nuno Santos


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Mikel" <m.paniegoARROBinikernet.com> wrote in message
news:

Hola amigos!!

Tengo un contador que me gustaria que de 1 a 9 me gustaria que se mostrara
01,02. Para ello estoy utilizando la función FormatNumber pero no
acierto con la sintaxis correcta aun googleando. ¿Alguien conoce algun
codigo que me sirva?
Gracias y saludos!!

Una otra opción es utilizar el LEFT...

Nuno Santos


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Nuno Santos" <nunos7[REMOVE]@hotmail.com> wrote in message
news:

Yo utilizo esta función:
Str= string de entrada
Nummax = comprimento máximo da string de saida
Pad = caracter a colocar

Ex.
str = 1
NumMax = 3
Pad = 0

Resultado: 001


Function LeftPad(Str,NumMax,Pad)


If (Len(Str) <= 0) Then
LeftPad = ""
Exit Function
End If

If (NumMax <= 0) Then
LeftPad = Str
Exit Function
End If

If (Len(Pad) <= 0) Then
LeftPad = Str
Exit Function
End If

Dim i, aux
aux = ""
For i = 1 To NumMax - Len(Str)
aux = aux & Pad
Next

LeftPad = aux & Str

End Function

Nuno Santos


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Mikel" <m.paniegoARROBinikernet.com> wrote in message
news:

Hola amigos!!

Tengo un contador que me gustaria que de 1 a 9 me gustaria que se
mostrara
01,02. Para ello estoy utilizando la función FormatNumber pero no
acierto con la sintaxis correcta aun googleando. ¿Alguien conoce algun
codigo que me sirva?
Gracias y saludos!!

Listo!

Muchas gracias a los dos! ;-)