Retorna um número formatado conforme texto recebido por parâmetro

Exemplo da Rotina:

GetDToVal([Expressão])

Exemplo 1- Convertendo o texto para numérico:

cTexto := "455"
nVal := GetDToVal(cTexto) //Retorna 455

Exemplo 2- Convertendo o texto para numérico (apenas o valor decimal):

cTexto := "fim.489"
nVal := GetDToVal(cTexto) //Retorna 0,489

 

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;

Referências:

– TDN