Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

cesarhtc

Repetir um caracter

Recommended Posts

Como faço para repetir zero a esquerda de um valor, quando sei que o tamanho maximo do campo é 19?

Obrigado

 

VALOR=Replace(VL,",","")


TV_CON =Len(valor)

 

DIFE= 19-TV_CON

 

 

If DIFE >=0 Then
VALOR =??????

else

valpr=valor

end IF

Compartilhar este post


Link para o post
Compartilhar em outros sites

vc pode usar o Right( "00" & Variavel, 14) ou esta função

 

 

Function ZeroEsquerda(Var_String, Quantidade)
ZeroEsquerda = Var_String
If Quantidade < Len(Var_String) Then
While Len(ZeroEsquerda) < (Quantidade + Len(Var_String))
ZeroEsquerda = "0"& ZeroEsquerda
Wend
End If
End Function

Compartilhar este post


Link para o post
Compartilhar em outros sites

use umas das funções que coloquei no poste #2

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.