import.css=/download/attachments/6062824/tecnologia.css |
Converte um número inteiro em uma string formatada como um inteiro de 16 bits.
I2Bin( < nInt > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nInt | numérico | Indica o valor numérico inteiro que será convertido. | X |
|
Nome | Tipo | Descrição |
---|---|---|
cRet | caractere | Retorna uma string de dois bytes que contém um inteiro binário de 16 bits. |
#DEFINE CRLF Chr(13)+Chr(10) User Function Exemplo() Local cMensagem := "" //+----------------------------------------------------------------------------+ //|Exemplifica o uso da função I2Bin | //+----------------------------------------------------------------------------+ cMensagem += "[" + I2Bin(4276803) + "] = I2Bin(4276803)" + CRLF cMensagem += "[" + I2Bin( 16962) + "] = I2Bin(16962)" + CRLF cMensagem += "[" + I2Bin( 16705) + "] = I2Bin(16705)" + CRLF //+----------------------------------------------------------------------------+ //|Apresenta uma mensagem com os resultados obtidos | //+----------------------------------------------------------------------------+ return MsgInfo(cMensagem, "Exemplo do I2Bin") |
Microsiga Protheus 8.11,Protheus 10, TOTVS Application Server 10, ByYou Application Server