Bin2D

Bin2D ( <cString> ) --> nRet

(numerico)
• Retorna um valor numérico de ponto flutuante que representa o caractere informado.

Os caracteres utilizados na linguagem ocupam somente um byte, sendo assim, retornamos um valor numérico para os oito primeiros caracteres de uma string informada através do parâmetro.

Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função Bin2D                                           |
//+----------------------------------------------------------------------------+
 cMensagem += cValToChar(Bin2D( "333333-@")) + " = Bin2D( '333333-@')" + CRLF
 cMensagem += cValToChar(Bin2D( "333333)@")) + " = Bin2D( '333333)@')" + CRLF
 cMensagem += cValToChar(Bin2D( "666666)@")) + " = Bin2D( '666666)@')" + CRLF
 cMensagem += cValToChar(Bin2D( "111111)@")) + " = Bin2D( '111111)@')" + CRLF
 cMensagem += cValToChar(Bin2D("111111)@A")) + " = Bin2D('111111)@A')"
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do Bin2D")