MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Funções de Conversão de Tipo

    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    Funções de Conversão de Tipo Empty Funções de Conversão de Tipo

    Mensagem  Jeferson de Paula em 16/9/2013, 19:51

    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 Funções de Conversão de Tipo 001_1810?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

      Data/hora atual: 28/11/2020, 01:46