import.css=/download/attachments/6062824/tecnologia.css

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

Exemplos

#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