Função: NToL
Converte um valor numérico em lógico. Esta função é obsoleta, e pode ser removida em futuras versões de binário. Vide maiores detalhes nas observações deste documento.
NToL ( < nValor> ) --> lRet
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nValor | Numérico | Indica o valor numérico que será convertido para lógico. | X |
-
lRet(logico)
- Retorna o valor lógico correspondente ao valor numérico passado por parâmetro.
(**) Esta função é obsoleta. Ao invés de chamá-la, utilize o operador de comparação numérica Advpl, vide abaixo :
Ao invés de:
IF NTOL( nI )
Utilize :
IF ( nI != 0 )
#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()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")
Exemplo da função NToL
Microsiga Protheus 8.11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server