import.css=/download/attachments/6062824/tecnologia.css |
Converte um caractere de 32 bits sinalizado para um numérico.
Bin2L( < cString > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cString | caractere | Indica um caractere de quatro bytes. | X |
|
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico | Retorna um valor numérico inteiro que representa o caractere informado. |
#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") |
Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, ByYou Application Server