Repetir um caracter

[cesarhtc 0]

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

[xanburzum 169]

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

[Ronaldo Faria Storck Eler 2]

 

Apenas mais uma opção...sds

 

Function PreencheZeros(numero, tamanho)
  PreencheZeros = String(tamanho - Len(numero), "0") & numero
End Function

 

[Gilberto Jr 26]

Na minha visão deve fazer o seguinte.

 

if valor < 10 then
&"0"&valor
end if

o 10 foi só um exemplo.

 

Att;

[hinom 5]

Para esse caso a função Right() é a mais apropriada, pois essa é a finalidade da mesma.

[xanburzum 169]

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