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.
(**) A partir de 03/11/2011, esta função é considerada 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