L2Bin

L2Bin ( < nInteiro> ) --> 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")