Funções de Conversão de Tipo

Olá Galerinha,

Garimpando pela internet para achar alguns exemplos de conversões de tipo de dados, achei um artigo muito interessando no site da Microsoft, espero que gostem!

Referência: http://office.microsoft.com/pt-br/access-help/funcoes-de-conversao-de-tipo-HA001229018.aspx

Funções de conversão de tipo

Cada função transforma uma expressão em um tipo de dados específico.

Sintaxe

CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)

O argumento obrigatório expressão é qualquer expressão em cadeia ou expressão numérica.

Argumento: é um valor que fornece informações a uma ação, um evento, um método, uma função ou um procedimento.
Expressão de Cadeia de Caracteres: é uma expressão avaliada como uma cadeia de caracteres contíguos. Os elementos da expressão podem incluir: funções que retornam uma cadeia ou uma cadeia Variant "VarType 8" uma cadeia literal, constante, variável ou Variant.
Expressão Numérica: é qualquer expressão avaliada como um número. A expressão pode ser uma combinação de variáveis, constantes, funções e operadores.

Tipos de retorno

O nome da função determina o tipo de retorno como mostrado a seguir:

Função: CBool
Tipos de retorno: Boolean
Intervalo do argumento da expressão: Qualquer expressão numérica ou em sequência válida.

Função: CByte
Tipos de retorno: Byte
Intervalo do argumento da expressão: 0 a 255.

Função: CCur
Tipos de retorno: Currency
Intervalo do argumento da expressão: -922,337,203,685,477.5808 a 922,337,203,685,477.5807.

Função: CDate
Tipos de retorno: Date
Intervalo do argumento da expressão: Qualquer expressão de data válida.

Função: CDbl
Tipos de retorno: Double
Intervalo do argumento da expressão: -1.79769313486231E308 a
-4.94065645841247E-324 para valores negativos; 4.94065645841247E-324 a 1.79769313486232E308 para valores positivos.

Função: CDec
Tipos de retorno: Decimal
Intervalo do argumento da expressão: +/-79,228,162,514,264,337,593,543,950,335 para número acima de zero, isto é, números sem nenhuma casa decimal. Para números com 28 casas decimais, o intervalo é
+/-7.9228162514264337593543950335. O menor número diferente de zero possível é 0.0000000000000000000000000001.

Função: CInt
Tipos de retorno: Integer
Intervalo do argumento da expressão: -32,768 a 32,767; frações são arredondadas.

Função: CLng
Tipos de retorno: Long
Intervalo do argumento da expressão: -2,147,483,648 a 2,147,483,647; frações são arredondadas.

Função: CSng
Tipos de retorno: Single
Intervalo do argumento da expressão: -3.402823E38 a -1.401298E-45 para valores negativos; 1.401298E-45 a 3.402823E38 para valores positivos.

Função: CStr
Tipos de retorno: String
Intervalo do argumento da expressão: O retornos para CStr dependem do argumento da expressão.

Função: CVar
Tipos de retorno: Variant
Intervalo do argumento da expressão: Intervalo igual ao item Double para números e igual ao item String para valores diferentes de números.

Comentários

Se a expressão transmitida à função estiver fora do intervalo para os quais os tipos de dados estão sendo convertidos, ocorrerá um erro. Em geral, você pode documentar o código utilizando as funções de conversão de tipo de dados para mostrar que o resultado de alguma operação deve ser expresso como um tipo determinado de dados em vez de um tipo de dados padrão. Por exemplo, utilize CCur para forçar uma operação aritmética de moeda nos casos em que pode normalmente ocorrer precisão simples, precisão dupla ou aritmética de inteiros.

Você deve usar as funções de conversão de tipo de dados em vez de Val para fornecer conversões aceitas internacionalmente de um tipo de dados para outro. Por exemplo, quando você usa CCur, diferentes separadores decimais, diferentes separadores de milhares e várias opções de moeda são adequadamente reconhecidas, dependendo da configuração do idioma do computador.

Quando a parte fracional é exatamente 0,5, CInt e CLng sempre a arredondam para o número par mais próximo. Por exemplo, 0,5 é arredondado para 0, e 1,5 é arredondado para 2. CInt e CLng são diferentes das funções Fix e Int, que truncam, em vez de arredondar a fração de um número. Além disso, Fix e Int sempre retornam um valor do mesmo tipo daquele que foi transmitido.

Use a função IsDate para determinar se date pode ser convertido para uma data ou hora. CDate reconhece os literais de data e de hora, bem como alguns números dentro do intervalo de datas aceitáveis. Quando se converte um número para uma data, a parte inteira do número é convertida para uma data. Qualquer parte fracional do número é convertida para uma hora do dia, começando à meia-noite.

CDate reconhece formatos de data conforme a configuração de localidade do sistema. A ordem correta do dia, mês e ano talvez não seja determinada se ela for fornecida em um formato diferente das configurações de data reconhecidas. Além disso, um formato de data longo não é reconhecido se também contiver a seqüência dia da semana.

Uma função CVDate também é fornecida para obtenção de compatibilidade com versões anteriores do Visual Basic. A sintaxe da função CVDate é idêntica à da função CDate; entretanto, CVDate retorna uma Variant cujo subtipo é Date em vez do tipo Date real. Como há agora um tipo Date intrínseco, não há mais necessidade de CVDate. O mesmo efeito pode ser alcançado convertendo uma expressão para Date, e, em seguida, atribuindo-a a uma Variant. Essa técnica é consistente com a conversão de todos os tipos diferentes de intrínseco para seus subtipos Variant equivalentes.

Observação: A função CDec não retorna um tipo de dados discreto; em vez disso, ela sempre retorna uma Variant cujos valores foram convertidos para um subtipo Decimal.

Exemplos

Os exemplos a seguir demonstram o uso dessa função em um módulo do Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com VBA, selecione Referência sobre o Desenvolvedor na lista suspensa ao lado de Pesquisa e digite um ou mais termos na caixa de pesquisa.

Função CBool
Este exemplo usa a função CBool para converter uma expressão para um Boolean. Se a expressão for avaliada para um valor diferente de zero, CBool retorna True; caso contrário, ele retorna False.

Código:

Dim A, B, Check
A = 5: B = 5    ' Inicialize variáveis.
Check = CBool(A = B) 'Check contém Verdadeiro.

A = 0    ' Defina a variável.
Check = CBool(A) 'Check contém Falso.

Função CByte
Este exemplo usa a função CByte para converter uma expressão para um Byte.

Código:

Dim MyDouble, MyByte
MyDouble = 125.5678    ' MyDouble é um Duplo.
MyByte = CByte(MyDouble)    ' MyByte contém 126.

Função CCur
Este exemplo usa a função CCur para converter uma expressão para um Currency.

Código:

Dim MyDouble, MyCurr
MyDouble = 543.214588 'MyDouble é um Duplo.
MyCurr = CCur(MyDouble * 2)    
'Converta o resultado de MyDouble * 2 (1086.429176) em uma
'Moeda (1086.4292).

Função CDate
Este exemplo utiliza a função CData para converter uma seqüência para uma Date. Em geral, as datas e as horas embutidas como seqüência (como mostrado nesse exemplo) não é recomendado. Use os literais de data e de hora, como #2/12/1969# e #4:45:23#, no lugar.

Código:

Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "12 de fevereiro de 1969"
'Converta no tipo de dados Date.
MyShortDate = CDate(MyDate)

MyTime = "4:35:47 PM"
'Converta no tipo de dados Date.
MyShortTime = CDate(MyTime)

Função CDbl
Este exemplo usa a função CDbl para converter uma expressão para um Double.

Código:

Dim MyCurr, MyDouble
MyCurr = CCur(234.456784)
' Converta o resultado em um Duplo.
MyDouble = CDbl(MyCurr * 8.2 * 0.01)

Função CDec
Este exemplo usa a função CDec para converter um valor numérico em Decimal.

Código:

Dim MyDecimal, MyCurr
MyCurr = 10000000.0587    ' MyCurr é uma Moeda.
MyDecimal = CDec(MyCurr)     ' MyDecimal é um Decimal.

Função CInt
Este exemplo usa a função CInt para converter um valor em Integer.

Código:

Dim MyDouble, MyInt
MyDouble = 2345.5678    ' MyDouble é um Duplo.
MyInt = CInt(MyDouble)    ' MyInt contém 2346.

Função CLng
Este exemplo usa a função CLng para converter um valor em Long.

Código:

Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45
MyVal2 = 25427.55 'MyVal1, MyVal2 são Duplos.
MyLong1 = CLng(MyVal1)
'MyLong1 contém 25427.
MyLong2 = CLng(MyVal2)
'MyLong2 contém 25428.

Função CSng
Este exemplo usa a função CSng para converter um valor em Single.

Código:

Dim MyDouble1, MyDouble2, MySingle1, MySingle2
'MyDouble1, MyDouble2 são Duplos.
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1)
'MySingle1 contém 75.34211.
MySingle2 = CSng(MyDouble2)
'MySingle2 contém 75.34216.

Função CStr
Este exemplo usa a função CStr para converter um valor numérico em String.

Código:

Dim MyDouble, MyString
MyDouble = 437.324    ' MyDouble é um Duplo.
MyString = CStr(MyDouble)
' MyString contém "437.324".

Função CVar
Este exemplo usa a função CVar para converter uma expressão em um Variant.

Código:

Dim MyInt, MyVar
MyInt = 4534    ' MyInt é um Inteiro.
MyVar = CVar(MyInt & "000")
' MyVar contém a cadeia 4534000.

Bons Estudos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então, que tal dar um joinha ?