Bin2L

Bin2L ( < cString> ) --> nRet

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