Adriana
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/09/2004 10:18 hs
Gostaria de saber que função usar para completar um numero com zeros a equerda ?? Exemplo a minha variavel tem 14 digitos, se eu digitar um valor com 10 digitos ela tem que compeltar com mais 4 zeros a esquerda . Alguem sabe me dizer ?? Tks |
|
|
|
|
|
WaldirJr
|
POÇOS DE CALDAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/09/2004 10:25 hs
Function Strzero(Txt_Vari As String, Txt_Nume As Integer)
Dim cont As Integer
'Retorna a Variável com zeros a esquerda
For cont = 1 To (Txt_Nume - Len(Txt_Vari))
Txt_Vari = "0" + Txt_Vari
Next
Strzero = Txt_Vari
End Function
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
|
|
Postada em 10/09/2004 10:25 hs
numeroformatado = format(numero,"00000000000000") Roberto |
|
|
|
Adriana
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/09/2004 10:30 hs
Muiuto Obrigado..!!!!! Tks |
|
|
|
