Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 3 Atual »

Função: L2Bin

Converte um número inteiro em uma string formatada como um inteiro de 32 bits.

L2Bin ( < nInteiro> ) --> cRet

 

NomeTipoDescriçãoObrigatórioReferência
nInteiroNuméricoIndica o valor numérico inteiro que será convertido.X 

 

cRet
    (caracter)
  • Retorna uma string de dois bytes que contém um inteiro binário de 32 bits.

Os dígitos decimais passados através do parâmetro são truncados e, portanto, não considerados na conversão.

#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função L2Bin |
//+----------------------------------------------------------------------------+
cMensagem += "[" + L2Bin(1094795585) + "] = L2Bin(1094795585)" + CRLF
cMensagem += "[" + L2Bin(1111638594) + "] = L2Bin(1111638594)" + CRLF
cMensagem += "[" + L2Bin(1128481603) + "] = L2Bin(1128481603)" + CRLF
cMensagem += "[" + L2Bin(1145258561) + "] = L2Bin(1145258561)" + CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do L2Bin")

Exemplo da função L2Bin
Microsiga Protheus 8.11 , Protheus 10

 

  • Sem rótulos