TOTVSTEC

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos

Documentação de item não suportado ou descontinuado.

Converte um valor numérico em lógico.

Sintaxe

NToL( < nValue > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nValue

numérico

Indica o valor numérico que será convertido para lógico.

X

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna o valor lógico correspondente ao valor numérico passado por parâmetro.

Observações

  • A partir da build 7.00.111010 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 )

Exemplos

Exemplo 1
#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" )

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

Veja também

  • Sem rótulos