Preenche com Zeros a Esquerda Qualquer String Deve ser passado a Variavel e o Número de Casas A Variavel pode ser Tipo Caracter ou Numérico

'============================================== ' Preenche com Zeros a Esquerda Qualquer String ' Deve ser passado a Variavel e o Numero de Casas ' A Variavel pode ser Tipo Caracter ou Numerico '============================================== Function StrZero(Variavel, nCasas)    cVariavel = cstr(Variavel)    StrZero = right(string(nCasas,"0") + trim(cVariavel),nCasas) End Function '============================================== ' Preenche um numero com zeros a esquerda ' Outra versão '============================================== Function StrZero(Str,Size)    Dim x, S    s = ""    For x = 1 to Size       s = s & "0"    Next    StrZero = Right(s & Str,Size) End Function

Quebra-Linha

Colaborador..: Alexandre Neves
Categoria(s).: ASP;
Data.........: 19/11/2001 21:49:17
Visualizado..: 4642 vezes
Fonte........: Seven Lib