Á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

Versão 1 Próxima »

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