Bin2L

Bin2L ( < cString> ) --> nRet

(numerico)
• Retorna um valor numérico inteiro que representa o caractere informado.

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.

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