TOTVSTEC

Árvore de páginas

Converte um caractere de 64 bits sinalizado para um numérico de ponto flutuante.

Sintaxe

Bin2D( < cString > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cString

caractere

Indica um caractere de oito bytes.

X

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna um valor numérico de ponto flutuante que representa o caractere informado.

Observações

  • 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.

Exemplos

Exemplo 1
#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
  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")

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

Veja também