[Resolvido]Como se faz para delimitar a quantidades de zeros para remoção.

Favor ajuda neste função do exemplo do nosso colega.

Exemplo na minha tabela eu tenho um codigo 0000003859 eu quero que exiba 0003859.
Antes de qualquer coisa muito obrigado pela atenção de todos.


Function fncRemoverZerosEsq(Str As String)

'Trata zeros esquerda
Do While Left(Str, 1) = "0"
Str = Mid(Str, 2)
Loop

fncRemoverZerosEsq = Str

End Function

Olá Rafael,

Os dados serão exibidos em um formulário?

Boa tarde!
Não será exibido no formulário

Ok.

Pelo que eu entendi pelo exemplo "0003859", o campo terá 7 posições.
Desta forma, vc pode fazer da seguinte maneira:

Código:



Public Function fncAjuste(Str As String, iLarg As Integer) As String
   
    'Ajusta o tamanho do texto
    fncAjuste = Right(Str, iLarg)
   
End Function



Exemplos:

SeuCampo = fncAjuste("0000003859",7) ==> Resultado: 0003859
SeuCampo = fncAjuste("0000003859",6) ==> Resultado: 003859
SeuCampo = fncAjuste("0000003859",5) ==> Resultado: 03859


Espero ter ajudado.

boa sorte

Muito obrigado pela dicas deu certo.

Valeu Rafael,

O forum agradece.

Boa sorte e abraços