Júlio Battisti Livros e Cursosa sua sala de aula na internet

Neste item aprenderemos a utilizar as principais funções para conversão de tipos. Existem situações em que um determinado tipo de dado, deve ser convertido para outro. Por exemplo, se tivermos um número, armazenado na forma de texto, precisamos convertê-lo para inteiro ou double, para que possamos realizar cálculos com o mesmo. Faremos um exemplo de cálculo do DV do CPF, onde o CPF é um valor do tipo texto. Ao extrairmos cada dígito do CPF, estes serão extraítos como caracteres de texto. Precisaremos utilizar uma função de conversão, para convertê-los para números, a fim de que possamos efetuar os cálculos necessários.

Na seqüência, apresento as principais funções de conversão, bem como um pequeno fragmento de código, exemplificando a utilização de cada uma delas.                   

Função Cbool

A função Cbool converte uma variável ou resultado de um expressão, para o subtipo Boolean. Qualquer número, com exceção do zero, é automaticamente convertido para Verdadeiro. O valor zero é sempre convertido para Falso. O argumento desta função, não pode ser Texto, caso contrário será gerado um erro em tempo de execução.

Observe este linha de código:

MsgBox cbool(10>25) & chr(13) & cbool(3)

Esta linha gera a mensagem indicada na Figura a seguir:

Figura 159 – Mensagem.

A expressão 10>25 é avaliada, como a expressão é falsa, a função Cbool retorna Falso. Já no segundo uso da função Cbool, foi passado o parâmetro 3 para a função. Qualquer valor diferente de zero (com exceção de texto), a função interpreta como Verdadeiro, o que é comprovado pela Figura anterior.

Função CByte

A função CByte converte uma variável ou resultado de um expressão, para o subtipo Byte. O valor a ser convertido, deve estar na faixa aceitável para o tipo byte, que vai de 0 à 255. Caso o número esteja fora desta faixa, será gerada uma mensagem de erro, em tempo de execução. O argumento desta função, não pode ser Texto, caso contrário será gerada uma mensagem de erro, em tempo de execução.

Observe este linha de código:

MsgBox CByte(10+34) & chr(13) & CByte(35)

Esta linha gera a mensagem indicada na Figura a seguir:

Figura 160 – Mensagem.

A expressão 10+34 é calculada, e o resultado (44), é convertido para o tipo byte. A linha de código abaixo, irá gerar uma mensagem de erro, em tempo de execução, pois o valor a ser convertido para byte, está fora da faixa de 0 à 255.

MsgBox CByte(100+200)

Figura 161 – Mensagem.

Função CCur

A função CCur converte uma variável ou resultado de um expressão, para o subtipo Currency. O argumento desta função, não pode ser Texto, caso contrário será gerado um erro.

Observe este linha de código:

MsgBox CCur(250.335677+324.3333) & chr(13) & CCur(1250.326582)

Esta linha gera a mensagem indicada na Figura a seguir:

Figura 162 – Mensagem.

A expressão 250.335677+324.3333 é calculada, e o resultado  é convertido para o tipo Currency.

Se passarmos um argumento de texto para a função CCur, será gerado um erro de execução.

Função CDate

A função CDate converte uma variável ou resultado de um expressão, para o subtipo Date. O argumento desta função deve estar em um formato que seja aceitável para datas, caso contrário será gerada uma mensagem de erro, em tempo de execução.

Observe este linha de código:

MsgBox CDate(“27/07/2010”)  & chr(13) & CDate(“27-07-2010”)
 
Esta linha gera a mensagem indicada na Figura a seguir:

Figura 163 – Mensagem.

A linha de código abaixo, irá gerar uma mensagem de erro, em tempo de execução, conforme indicado na próxima figura:
MsgBox CDate(“31/02/1980”) 

Figura 164 – Mensagem.
Função CDbl.

A função CDbl converte uma variável ou resultado de um expressão, para o subtipo Double. O argumento desta função não pode ser do tipo texto, caso contrário será gerada uma mensagem de erro, em tempo de execução.

Observe este linha de código:

MsgBox CDbl("4.940651247E-17")
 
Esta linha gera a mensagem indicada na Figura a seguir:

Figura 165 – Mensagem.

Função CInt

A função CInt converte uma variável ou resultado de um expressão, para o subtipo Integer. O argumento desta função não pode ser do tipo texto, caso contrário será gerada uma mensagem de erro, em tempo de execução.

Observe este linha de código:

MsgBox CInt(32.36) & Chr(13) & CInt(20.35+40.45)
 
Esta linha gera a mensagem indicada na Figura a seguir:

Figura 166 – Mensagem.

Função CLng

A função CLng converte uma variável ou resultado de um expressão, para o subtipo Long. O argumento desta função não pode ser do tipo texto, caso contrário será gerada uma mensagem de erro, em tempo de execução. O argumento também não pode estar fora da faixa admitida pelo subtipo Long, caso contrário será gerada uma mensagem de erro, em tempo de execução.

Observe este linha de código:

MsgBox CLng("3462315")

Esta linha gera a mensagem indicada na Figura a seguir:

Figura 167 – Mensagem.

Função CSng

A função CSng converte uma variável ou resultado de um expressão, para o subtipo Single. O argumento desta função não pode ser do tipo texto, caso contrário será gerada uma mensagem de erro, em tempo de execução. O argumento também não pode estar fora da faixa admitida pelo subtipo Single, caso contrário será gerada uma mensagem de erro, em tempo de execução.

Observe este linha de código:

MsgBox CSng("3.1418256927")

Esta linha gera a mensagem indicada na Figura a seguir:

Figura 168 – Mensagem.

Função CStr

A função CStr converte uma variável ou resultado de um expressão, para o subtipo String.

Observe este linha de código:

MsgBox CStr("12345" & " hectares de terra")

Esta linha gera a mensagem indicada na Figura a seguir:

Figura 169 – Mensagem.

Funções Int e Fix

As funções Int e Fix, retornam somente a parte inteira de um determinado número. A diferença entre as duas funções, é quando o número for negativo. Observe os exemplos abaixo:

Fix(-10.2) -> Retorna –10
Int(-10.2) -> Retorna –11

A função Int, retorna, no caso de números negativos, o primeiro número inteiro, menor ou igual ao parâmetro passado. No caso de –10.2, retornou –11. Já Fix, retorna, no caso de números negativos, o primeiro inteiro, maior ou igual ao parâmetro passado. No caso de –10.2, retornou –10.

Observe esta  linha de código:

MsgBox Fix (-7.35) & Chr(13) & MsgBox Int(-7.35)

Com isso, terminamos a nossa apresentação sobre as principais funções para a conversão de tipos de dados. No próximo item, estaremos analisando mais algumas funções do VBA, para operações com dados do tipo String e do tipo Data/Hora.