GetDToVal

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

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