Como converter entre números assinados e não assinados

Visual Basic for Applications só suporta assinado 2 e 4 bytes números inteiros, enquanto outros idiomas, tais como C, suportam assinados e inteiros. Este artigo fornece funções de conversão entre assinados e números inteiros de 4 bytes e entre assinados e números inteiros de 2 bytes.

No VBA, os valores do intervalo de número inteiro é de -32768 a +32767 e para valores mais de-2147483648 a 2147483647. Quando efectuar API chama ou chamar uma DLL escrita em C, que pode ser pedido para passar na ou receber valores não assinados no intervalo de 0 a 65535 ou 0 para 4294967296. As funções de conversão fornecidas abaixo converter um número inteiro não assinado para um valor longo e também de um não longo assinado para um valor duplo para objectivos de entrada e de visualização ou outros cálculos.

As quatro funções são:

UnsignedToLong

A função tem um valor duplo que contém um valor no intervalo de um não assinados longa e devolve um valor longo pode passar para uma API que requer um não assinado mais.

LongToUnsigned

A função tem um não assinados longo de uma API e converte um valor duplo para fins de apresentação ou aritmética.

UnsignedToInteger

A função tem um valor longo que contém um valor no intervalo de um número inteiro não assinado e devolve um número inteiro que pode passar para uma API que requer um número inteiro não assinado.

IntegerToUnsigned

A função assume um número inteiro não assinado de e a API e converte-o para um valor longo para fins de apresentação ou aritmética. no exemplo acima, a API MyAPI aceita uma não assinados longo como um parâmetro e devolve um não assinados longo como resultado código. Porque o VBA só compreende longos assinados, utiliza a instrução DECLARE assinado longos. O UnsignedToLong intervalo de um não assinados longo) para um assinado longo para fins de accione a API. A função LongToUnsigned efectua a conversão contrária.

Sem estas funções, o argumento de entrada teria de ter sido especificada como uma assinado longo, neste caso-994967296 e o valor de retorno teria ser apresentado como um valor assinado, possivelmente também como um negativo de número e não intuitiva.

Exemplo do Step by Step

1. Crie um novo projecto VBA.
2. Adicione o seguinte código a um módulo:

         Option Explicit
   
         Private Const OFFSET_4 = 4294967296#
         Private Const MAXINT_4 = 2147483647
         Private Const OFFSET_2 = 65536
         Private Const MAXINT_2 = 32767
   
         Function UnsignedToLong(Value As Double) As Long
           If Value < 0 Or Value >= OFFSET_4 Then Error 6 ' Overflow
           If Value <= MAXINT_4 Then
             UnsignedToLong = Value
           Else
             UnsignedToLong = Value - OFFSET_4
           End If
         End Function
   
         Function LongToUnsigned(Value As Long) As Double
           If Value < 0 Then
             LongToUnsigned = Value + OFFSET_4
           Else
             LongToUnsigned = Value
           End If
         End Function
   
         Function UnsignedToInteger(Value As Long) As Integer
           If Value < 0 Or Value >= OFFSET_2 Then Error 6 ' Overflow
           If Value <= MAXINT_2 Then
             UnsignedToInteger = Value
           Else
             UnsignedToInteger = Value - OFFSET_2
           End If
         End Function
   
         Function IntegerToUnsigned(Value As Integer) As Long
           If Value < 0 Then
             IntegerToUnsigned = Value + OFFSET_2
           Else
             IntegerToUnsigned = Value
           End If
         End Function
   						

3. Apenas o Visual Basic: executar o projecto e colocar em pausa.
4. Escreva o seguinte na janela Immediate/Debug:

         ?UnsignedToLong(3300000000)
         ?LongToUnsigned(-55)
         ?UnsignedToInteger(45000)
         ?IntegerToUnsigned(-3000)

5. Obterá os seguintes resultados:
   -994967296
   4294967241
   -20536
   62536

Para obter informações adicionais, consulte o seguinte artigo na base de dados de conhecimento da Microsoft: