Abaixo segue algumas situações e modelos onde se aplicar o zero a esquerda, outras podem ser consultadas neste endereço abaixo:
http://www.freecode.com.br/forum/viewtopic.php?t=21
<%
Function ZerosEsquerda(pModo, pFinal)
Dim intCont, intResultado
If (pFinal - Len(pModo)) < 0 Then
intResultado = ""
Else
intResultado = ""
For intCont = 1 To (pFinal - Len(pModo))
intResultado = intResultado + "0"
Next
intResultado = intResultado + pModo
End If
ZerosEsquerda = intResultado
End Function
Response.Write ZerosEsquerda("16", 2)
' por Rafael Trindade
' rafael@freecode.com.br
%>
'----------------------------------
<%
Function FormatoZeros(num,zeros)
dim aux,i
aux = 1
for i = 1 to zeros
aux = aux * 10
next
FormatoZeros = Mid(aux+num,2,zeros+1)
End Function
' por KDU
%>
'----------------------------------
<%
num = 12345
Function Completa(str,n)
if Len(str) < n then
For i = 1 to n - Len(str)
gera = gera & 0
next
gera = gera & str
else
gera = str
end if
Completa = gera
End Function
response.write Completa(num,10)
' por RockLoko
' rock.loco@bol.com.br
%>
'----------------------------------
<%
Dim Num1, Num2
Randomize()
Num1 = Int((999999 * Rnd) + 1)
If Len(Num1) < 6 Then
Num2 = 6 - Len(Num1)
For I = 1 to Num2
Num1 = 0 & Num1
Next
End If
' por Jonh Petrucci - Clessio
%>
'----------------------------------
<%
Dim myArray, valores
valores = "1,15,216,1548,54872,8787974"
MyArray = Split(valores,",")
Function Zeros(str)
Dim x, acrZeros
if isNull(str) Then Exit Function
For x = 0 To Ubound(str)
IF Len(str(x)) > Len(maior) Then
maior = str(x)
End IF
Next
For x = 0 To Ubound(str)
acrZeros = string(Len(maior) - Len(str(x)), "0") & str(x)
response.write acrZeros &"<br>"
Next
End Function
response.write Zeros(MyArray)
' por Márcio Lima (Guardião)
' guardiao@freecode.com.br
%>
'----------------------------------
<%
Function adZero(sText, sQuant)
if isNull(sText) Then Exit Function
adZero = string(sQuant - len(sText), "0") & sText
End Function
'Usando:
Response.Write adZero("5789", 9)
'Resultado:
' 000005789
' por Marcelo Santos (MPSDesign)
' marcelo@mpsdesign.com.br
%>
Esta matéria foi postada originalmente no ASP4Developers por Marcio Lima (Guardião) (site), que na época era "Programador ASP e VBA, apaixonado por Design, futurismo e ficção.
". Hoje, vai saber...
