FUNÇÃO DE CONVERSÃO - CINT

CInt

    Função empregada para converter um valor ou expressão que resulte em um valor número, em um valor inteiro, utilizando esta sintaxe:

CInt(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para um valor número, entre –32.768 a 32.767. 

As seguintes considerações são válidas para a função Cint: 

• Se Expressão for um número decimal, Cint irá arredondá-lo para o próximo número inteiro, empregando as seguintes regras:
  
• Se a parte decimal for maior que 0.5, o número é arredondado para o próximo valor inteiro;
• Se a parte decimal for menor que 0.5, o número é arredondado para o valor inteiro imediatamente anterior;
• Se a parte decimal é igual a 0.5, onu é arredondado para o próximo número inteiro par;
• Cint difere das funções Fix e Int do VBA por arredondar o número para o inteiro mais próximo, enquanto a Fix e Int trucam o número  retornado apenas a sua parte inteira, sem qualquer arredondamento. 

Exemplo: Os próximos exemplos indicam como empregar a função Cint para converter diversos valores para um valor decimais de dupla precisão:

Dim intValor as Integer

Dim A, B, C, D

A = 120.5: B = 121.5: C = 120.6: D = 40000

IntValor = Cint(A)         ‘intValor contém 120

IntValor = Cint(B)         ‘intValor contém 122

IntValor = Cint(C)         ‘intValor contém 121

IntValor = Cint(D)         ‘Provoca um erro de overflow

Até a Próxima!!