Função que converte Numérico, Lógico e Data para Caracter.

Exemplo da Rotina:

cValToChar(xVariavel)

Exemplo 1- Mostrando as conversões padrão:

cValToChar – Exemplo 1

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/
 
User Function zTeste()
	Local aArea   := GetArea()
	
	MsgInfo("Conversões:" + CRLF + ;
		"Data: "     + cValToChar(Date())   + CRLF + ;
		"Numérico: " + cValToChar(13.8)     + CRLF + ;
		"Lógico: "   + cValToChar(.T.)      + CRLF + ;
		"Caracter: " + cValToChar("Daniel") + CRLF, "Atenção")
	
	RestArea(aArea)
Return

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
– Universo AdvPL