Soma1

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)

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: