import.css=/download/attachments/6062824/tecnologia.css |
Converte um valor numérico em lógico.
NToL( < nValue > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nValue | numérico | Indica o valor numérico que será convertido para lógico. | X |
|
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico | Retorna o valor lógico correspondente ao valor numérico passado por parâmetro. |
#DEFINE CRLF Chr(13)+Chr(10) user function ntol1() Local cMensagem := "" //+----------------------------------------------------------------------------+ //|Exemplifica o uso da função NToL | //+----------------------------------------------------------------------------+ cMensagem += "NToL(-100) = " + cValToChar(NToL(-100)) + CRLF cMensagem += "NToL( -10) = " + cValToChar(NToL( -10)) + CRLF cMensagem += "NToL( -1) = " + cValToChar(NToL( -1)) + CRLF cMensagem += "NToL( 0) = " + cValToChar(NToL( 0)) + CRLF cMensagem += "NToL( 1) = " + cValToChar(NToL( 1)) + CRLF cMensagem += "NToL( 10) = " + cValToChar(NToL( 10)) + CRLF cMensagem += "NToL( 100) = " + cValToChar(NToL( 100)) + CRLF //+----------------------------------------------------------------------------+ //|Apresenta uma mensagem com os resultados obtidos | //+----------------------------------------------------------------------------+ Return MsgInfo( cMensagem, "Exemplo do NToL" ) |
Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, ByYou Application Server