Funções de conversão de tipo (Visual Basic)

Essas funções são compiladas em linha, o que significa que o código de conversão faz parte do código que avalia a expressão. Às vezes, não há chamada para um procedimento para realizar a conversão, o que melhora o desempenho. Cada função impõe uma expressão a um tipo de dados específico.

Sintaxe

CBool(expression)
CByte(expression)
CChar(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CObj(expression)
CSByte(expression)
CShort(expression)
CSng(expression)
CStr(expression)
CUInt(expression)
CULng(expression)
CUShort(expression)

Parte

expression
Obrigatório. Qualquer expressão do tipo de dados de origem.

Tipo de dados de valor de retorno

O nome da função determina o tipo de dados do valor que ela retorna, conforme mostrado na tabela a seguir.

1 As partes fracionárias podem ser sujeitas a um tipo especial de arredondamento chamado arredondamento bancário. Consulte "Observações" para obter mais informações.

Observações

Como regra, você deve usar as funções de conversão de tipo do Visual Basic em preferência aos métodos do .NET Framework, como ToString(), na Convert classe ou em uma estrutura de tipo individual ou classe. As funções do Visual Basic são projetadas para interação ideal com o código do Visual Basic e também tornam o código-fonte mais curto e fácil de ler. Além disso, os métodos de conversão do .NET Framework nem sempre produzem os mesmos resultados que as funções do Visual Basic, por exemplo, ao converter Boolean em Integer. Para obter mais informações, consulte Solução de problemas de tipos de dados.

A partir do Visual Basic 15.8, o desempenho da conversão flutuante ponto-a-inteiro é otimizado quando você passa o Single valor ou Double retornado pelos seguintes métodos para uma das funções de conversão de inteiros (CByte, CShort, CInt, CLng, CSByte, CUShort, CUInt, ): CULng

• Conversion.Fix(Double)
• Conversion.Fix(Object)
• Conversion.Fix(Single)
• Conversion.Int(Double)
• Conversion.Int(Object)
• Conversion.Int(Single)
• Math.Ceiling(Double)
• Math.Floor(Double)
• Math.Round(Double)
• Math.Truncate(Double)

Essa otimização permite que o código que faz um grande número de conversões inteiras seja executado até duas vezes mais rápido. O exemplo a seguir ilustra essas conversões otimizadas de ponto para inteiro flutuante:

Dim s As Single = 173.7619
Dim d As Double = s

Dim i1 As Integer = CInt(Fix(s))               ' Result: 173
Dim b1 As Byte = CByte(Int(d))                 ' Result: 173
Dim s1 AS Short = CShort(Math.Truncate(s))     ' Result: 173
Dim i2 As Integer = CInt(Math.Ceiling(d))      ' Result: 174
Dim i3 As Integer = CInt(Math.Round(s))        ' Result: 174

Comportamento

• Coerção. Em geral, você pode usar as funções de conversão de tipo de dados para coagir o resultado de uma operação a um tipo de dados específico em vez do tipo de dados padrão. Por exemplo, use CDec para forçar a aritmética decimal nos casos em que a aritmética de precisão simples, precisão dupla ou inteiro normalmente ocorreria.

• Conversões com falha. Se o expression passado para a função estiver fora do intervalo do tipo de dados para o qual ele deve ser convertido, ocorrerá um OverflowException .

• Peças Fracionárias. Quando você converte um valor não integral em um tipo integral, as funções de conversão de inteiros (CByte, CInt, CLng, CSByte, CShort, CUIntCULng, , e CUShort) removem a parte fracionária e arredondam o valor para o inteiro mais próximo.

  Se a parte fracionária for exatamente 0,5, as funções de conversão inteira arredondam-na para o inteiro par mais próximo. Por exemplo, 0,5 arredonda para 0 e 1,5 e 2,5 arredondam para 2. Isso às vezes é chamado de arredondamento do banqueiro, e seu objetivo é compensar um viés que poderia se acumular ao somar muitos desses números.

  CInt e CLng diferem das Int e Fix funções, que truncam, em vez de arredondar, a parte fracionária de um número. Além disso, Fix e Int sempre retornar um valor do mesmo tipo de dados que você passa.

• Conversões de data/hora. Use a IsDate função para determinar se um valor pode ser convertido em data e hora. CDate reconhece literais de data e literais de tempo, mas não valores numéricos. Para converter um valor do Visual Basic 6.0 Date em um Date valor no Visual Basic 2005 ou versões posteriores, você pode usar o DateTime.FromOADate método.

• Valores de data/hora neutros. O Tipo de Dados de Data sempre contém informações de data e hora. Para fins de conversão de tipo, o Visual Basic considera 1/1/0001 (1º de janeiro do ano 1) como um valor neutro para a data e 00:00:00 (meia-noite) como um valor neutro para a hora. Se você converter um Date valor em uma cadeia de caracteres, CStr não incluirá valores neutros na cadeia de caracteres resultante. Por exemplo, se você converter #January 1, 0001 9:30:00# em uma cadeia de caracteres, o resultado será "9:30:00 AM", as informações de data serão suprimidas. No entanto, a informação de data ainda está presente no valor original Date e pode ser recuperada com funções como DatePart função.

• Sensibilidade à cultura. As funções de conversão de tipo que envolvem cadeias de caracteres executam conversões com base nas configurações de cultura atuais para o aplicativo. Por exemplo, CDate reconhece formatos de data de acordo com a configuração de localidade do seu sistema. Você deve fornecer o dia, mês e ano na ordem correta para sua localidade, ou a data pode não ser interpretada corretamente. Um formato de data longa não é reconhecido se contiver uma cadeia de caracteres de dia da semana, como "Quarta-feira".

  Se você precisar converter para ou de uma representação de cadeia de caracteres de um valor em um formato diferente do especificado pela sua localidade, você não pode usar as funções de conversão de tipo do Visual Basic. Para fazer isso, use os ToString(IFormatProvider) métodos e Parse(String, IFormatProvider) do tipo desse valor. Por exemplo, use Double.Parse ao converter uma cadeia de caracteres em um Double, e use Double.ToString ao converter um valor do tipo Double em uma cadeia de caracteres.

Função CType

A função CType usa um segundo argumento, typenamee coage a typename, onde typename pode ser qualquer tipo de expression dados, estrutura, classe ou interface para a qual existe uma conversão válida.

Para obter uma comparação com as outras palavras-chave de conversão de CType tipo, consulte Operador DirectCast e Operador TryCast.

Exemplo de CBool

O exemplo a seguir usa a CBool função para converter expressões em Boolean valores. Se uma expressão for avaliada como um valor diferente de zero, CBool retorna True, caso contrário, ela retornará False.

Dim a, b, c As Integer
Dim check As Boolean
a = 5
b = 5
' The following line of code sets check to True.
check = CBool(a = b)
c = 0
' The following line of code sets check to False.
check = CBool(c)

Exemplo CByte

O exemplo a seguir usa a CByte função para converter uma expressão em um Bytearquivo .

Dim aDouble As Double
Dim aByte As Byte
aDouble = 125.5678
' The following line of code sets aByte to 126.
aByte = CByte(aDouble)

Exemplo de CChar

O exemplo a seguir usa a CChar função para converter o primeiro caractere de uma String expressão em um Char tipo.

Dim aString As String
Dim aChar As Char
' CChar converts only the first character of the string.
aString = "BCD"
' The following line of code sets aChar to "B".
aChar = CChar(aString)

O argumento de entrada deve CChar ser do tipo Char de dados ou String. Você não pode usar CChar para converter um número em um caractere, porque CChar não pode aceitar um tipo de dados numéricos. O exemplo a seguir obtém um número que representa um ponto de código (código de caractere) e o converte no caractere correspondente. Ele usa a InputBox função para obter a cadeia de dígitos, CInt para converter a cadeia de caracteres para digitar Integer, e ChrW para converter o número para tipo Char.

Dim someDigits As String
Dim codePoint As Integer
Dim thisChar As Char
someDigits = InputBox("Enter code point of character:")
codePoint = CInt(someDigits)
' The following line of code sets thisChar to the Char value of codePoint.
thisChar = ChrW(codePoint)

Exemplo de CDate

O exemplo a seguir usa a CDate função para converter cadeias de caracteres em Date valores. Em geral, a codificação de datas e horas como cadeias de caracteres (como mostrado neste exemplo) não é recomendada. Use literais de data e de hora, como 12 de #Feb de 1969# e #4:45:23 PM#, em vez disso.

Dim aDateString, aTimeString As String
Dim aDate, aTime As Date
aDateString = "February 12, 1969"
aTimeString = "4:35:47 PM"
' The following line of code sets aDate to a Date value.
aDate = CDate(aDateString)
' The following line of code sets aTime to Date value.
aTime = CDate(aTimeString)

Exemplo de CDbl

Dim aDec As Decimal
Dim aDbl As Double
' The following line of code uses the literal type character D to make aDec a Decimal.
aDec = 234.456784D
' The following line of code sets aDbl to 1.9225456288E+1.
aDbl = CDbl(aDec * 8.2D * 0.01D)

Exemplo de CDec

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

Dim aDouble As Double
Dim aDecimal As Decimal
aDouble = 10000000.0587
' The following line of code sets aDecimal to 10000000.0587.
aDecimal = CDec(aDouble)

Exemplo CInt

O exemplo a seguir usa a CInt função para converter um valor em Integer.

Dim aDbl As Double
Dim anInt As Integer
aDbl = 2345.5678
' The following line of code sets anInt to 2346.
anInt = CInt(aDbl)

Exemplo de CLng

O exemplo a seguir usa a CLng função para converter valores em Long.

Dim aDbl1, aDbl2 As Double
Dim aLng1, aLng2 As Long
aDbl1 = 25427.45
aDbl2 = 25427.55
' The following line of code sets aLng1 to 25427.
aLng1 = CLng(aDbl1)
' The following line of code sets aLng2 to 25428.
aLng2 = CLng(aDbl2)

Exemplo de CObj

O exemplo a seguir usa a CObj função para converter um valor numérico em Object. A Object variável em si contém apenas um ponteiro de quatro bytes, que aponta para o Double valor atribuído a ela.

Dim aDouble As Double
Dim anObject As Object
aDouble = 2.7182818284
' The following line of code sets anObject to a pointer to aDouble.
anObject = CObj(aDouble)

Exemplo CSByte

O exemplo a seguir usa a CSByte função para converter um valor numérico em SByte.

Dim aDouble As Double
Dim anSByte As SByte
aDouble = 39.501
' The following line of code sets anSByte to 40.
anSByte = CSByte(aDouble)

Exemplo de CShort

O exemplo a seguir usa a CShort função para converter um valor numérico em Short.

Dim aByte As Byte
Dim aShort As Short
aByte = 100
' The following line of code sets aShort to 100.
aShort = CShort(aByte)

Exemplo de CSng

O exemplo a seguir usa a CSng função para converter valores em Single.

Dim aDouble1, aDouble2 As Double
Dim aSingle1, aSingle2 As Single
aDouble1 = 75.3421105
aDouble2 = 75.3421567
' The following line of code sets aSingle1 to 75.34211.
aSingle1 = CSng(aDouble1)
' The following line of code sets aSingle2 to 75.34216.
aSingle2 = CSng(aDouble2)

Exemplo CStr

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

Dim aDouble As Double
Dim aString As String
aDouble = 437.324
' The following line of code sets aString to "437.324".
aString = CStr(aDouble)

O exemplo a seguir usa a CStr função para converter Date valores em String valores.

Dim aDate As Date
Dim aString As String
' The following line of code generates a COMPILER ERROR because of invalid format.
' aDate = #February 12, 1969 00:00:00#
' Date literals must be in the format #m/d/yyyy# or they are invalid.
' The following line of code sets the time component of aDate to midnight.
aDate = #2/12/1969#
' The following conversion suppresses the neutral time value of 00:00:00.
' The following line of code sets aString to "2/12/1969".
aString = CStr(aDate)
' The following line of code sets the time component of aDate to one second past midnight.
aDate = #2/12/1969 12:00:01 AM#
' The time component becomes part of the converted value.
' The following line of code sets aString to "2/12/1969 12:00:01 AM".
aString = CStr(aDate)

CStr sempre renderiza um Date valor no formato curto padrão para a localidade atual, por exemplo, "15/06/2003 16:35:47". No entanto, CStr suprime os valores neutros de 1/1/0001 para a data e 00:00:00 para a hora.

Para obter mais detalhes sobre os valores retornados pelo CStr, consulte Valores de retorno para a função CStr.

Exemplo CUInt

O exemplo a seguir usa a CUInt função para converter um valor numérico em UInteger.

Dim aDouble As Double
Dim aUInteger As UInteger
aDouble = 39.501
' The following line of code sets aUInteger to 40.
aUInteger = CUInt(aDouble)

Exemplo de CULng

O exemplo a seguir usa a CULng função para converter um valor numérico em ULong.

Dim aDouble As Double
Dim aULong As ULong
aDouble = 39.501
' The following line of code sets aULong to 40.
aULong = CULng(aDouble)

Exemplo CUShort

O exemplo a seguir usa a CUShort função para converter um valor numérico em UShort.

Dim aDouble As Double
Dim aUShort As UShort
aDouble = 39.501
' The following line of code sets aUShort to 40.
aUShort = CUShort(aDouble)

Consulte também

• Asc
• AscW
• Chr
• ChrW
• Int
• Fix
• Format
• Hex
• Oct
• Str
• Val
• Funções de conversão
• Conversões de tipo no Visual Basic