quinta-feira, 26 de dezembro de 2002

Zero a Esquerda (vários modelos e situções)

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...

0 comentários: