Formatear numero

Buenas Pablo a ver si te sirve, hice esto porque algunas vezes no quiero que
sea zero, sino otro caracter...

strPad = LeftPad(45,5,"0")

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


"Pablo" wrote in message
news:%23$

Hola Grupo: Como puedo formatear un numero en ASP si el numero es 25 me
muestre 0025
O sea en general que me formatee siempre a 4 dígitos.
Gracias
Pablo

Nuno, está muy buena tu rutina. Te ofrezco este update cambiando el ciclo
for y la última línea que tienes allí:

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

LeftPad = left( string(NumMax, Pad) & Str , NumMax )

End Function

Salu2
MV

"Nuno Santos" <nunos7@[REMOVER]hotmail.com> escribió en el mensaje
news:%23bR%

Buenas Pablo a ver si te sirve, hice esto porque algunas vezes no quiero
que sea zero, sino otro caracter...

strPad = LeftPad(45,5,"0")

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


"Pablo" wrote in message
news:%23$

Hola Grupo: Como puedo formatear un numero en ASP si el numero es 25 me
muestre 0025
O sea en general que me formatee siempre a 4 dígitos.
Gracias
Pablo

Gracias a los dos. Me funcionó la rutina de Nuno. La otra me completaba todo
con 0
Pablo
"Pablo" escribió en el mensaje
news:%23$

Hola Grupo: Como puedo formatear un numero en ASP si el numero es 25 me
muestre 0025
O sea en general que me formatee siempre a 4 dígitos.
Gracias
Pablo

jejeje, tienes razón, ahora si la probé y corregí...

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

LeftPad = Right(String(NumMax, Pad) & Str, NumMax)

End Function

Salu2
MV-K


"Pablo" escribió en el mensaje
news:

Gracias a los dos. Me funcionó la rutina de Nuno. La otra me completaba
todo
con 0
Pablo
"Pablo" escribió en el mensaje
news:%23$

Hola Grupo: Como puedo formatear un numero en ASP si el numero es 25 me
muestre 0025
O sea en general que me formatee siempre a 4 dígitos.
Gracias
Pablo

Gracias Manuel :)

NS

"Manuel Vera" wrote in message
news:

jejeje, tienes razón, ahora si la probé y corregí...

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

LeftPad = Right(String(NumMax, Pad) & Str, NumMax)

End Function

Salu2
MV-K


"Pablo" escribió en el mensaje
news:

Gracias a los dos. Me funcionó la rutina de Nuno. La otra me completaba
todo
con 0
Pablo
"Pablo" escribió en el mensaje
news:%23$

Hola Grupo: Como puedo formatear un numero en ASP si el numero es 25 me
muestre 0025
O sea en general que me formatee siempre a 4 dígitos.
Gracias
Pablo