TOTVSTEC

Árvore de páginas

Converte um caractere de 32 bits sinalizado para um numérico.

Sintaxe

Bin2L( < cString > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cString

caractere

Indica um caractere de quatro bytes.

X

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna um valor numérico inteiro que representa o caractere informado.

Observações

  • Os caracteres utilizados na linguagem ocupam somente um byte, sendo assim, retornamos um valor numérico para os quatro primeiros caracteres de uma string informada através do parâmetro.

Exemplos

Exemplo 1
#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
  Local cMensagem := ""
  
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função Bin2L                                           |
  //+----------------------------------------------------------------------------+
  
  cMensagem += cValToChar(Bin2L(    "A")) + " = Bin2L(    'A')" + CRLF
  cMensagem += cValToChar(Bin2L(   "AB")) + " = Bin2L(   'AB')" + CRLF
  cMensagem += cValToChar(Bin2L(  "ABC")) + " = Bin2L(  'ABC')" + CRLF
  cMensagem += cValToChar(Bin2L( "ABCD")) + " = Bin2L( 'ABCD')" + CRLF
  cMensagem += cValToChar(Bin2L("ABCDE")) + " = Bin2L('ABCDE')"
  
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do Bin2L")

Resultado do Exemplo

Abrangência

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

Veja também

 

  • Sem rótulos