Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 3 Próxima »

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

NomeTipoDescriçãoObrigatórioReferência
nValorNuméricoIndica 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

  • Sem rótulos