Incrementa um valor, e quando chega ao limite, envolve alfabeto (por exemplo, 9999 -> 999A)

Exemplo da Rotina:

cTexto := Soma1(cTexto)

Exemplo 1- Incrementando o valor 100 para ficar 101:

cNum := "100"
cNum := Soma1(cNum)
Alert(cNum)

Exemplo 2- Incrementando o valor 9999 para ficar 999A:

cNum := "9999"
cNum := Soma1(cNum)
Alert(cNum)

Exemplo 3- Incrementando o valor 123AB para ficar 123AC:

cNum := "123AB"
cNum := Soma1(cNum)
Alert(cNum)

 

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

 

Observações:

• Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
• Se tiver sugestões de rotinas, pode entrar em contato;
• Função e documentação enviada por Caio Henrique;

Referências:

• TDN