|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Colocar Zeros a Esquerda
|
 |
|
|
|
Postada em 5/11/2003 por FatBoy
Function strZero(ByVal strValor As String, ByVal bytComprimento As Byte)
If Len(Valor) <= Comprimento Then
strZero = String(Comprimento - Len(Valor), "0") & Valor
Else
strZero = Valor
End If
End Function
Exemplo de uso:
strZero 7, 3 'retorna 007
|
|
|
|
|
