#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
decVar := DEC_CREATE("15161718.18171615", 16, 8)
numVar := DEC_TO_DBL(decVar)
cMensagem := "" + CRLF
cMensagem += "Tipo de decVar: " + ValType(decVar) + " Valor: " + cValToChar(decVar) + CRLF
cMensagem += "Tipo de numVar: " + ValType(numVar) + " Valor: " + cValToChar(numVar) + CRLF
conout(cMensagem)
Return
|