Funções de conversão do tipo (Visual Basic)Type Conversion Functions (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.These functions are compiled inline, meaning the conversion code is part of the code that evaluates the expression. Às vezes, não há nenhuma chamada para um procedimento para realizar a conversão, o que melhora o desempenho.Sometimes there is no call to a procedure to accomplish the conversion, which improves performance. Cada função impõe uma expressão para um tipo de dados específico.Each function coerces an expression to a specific data type.

SintaxeSyntax

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)

PartePart

expression
Necessário.Required. Qualquer expressão do tipo de dados de origem.Any expression of the source data type.

Tipo de dados de valor de retornoReturn Value Data Type

O nome da função determina o tipo de dados do valor que ele retorna, conforme mostrado na tabela a seguir.The function name determines the data type of the value it returns, as shown in the following table.

Nome da funçãoFunction name Tipo de dados de retornoReturn data type Intervalo para expression argumentoRange for expression argument
CBool Tipo de Dados BooleanBoolean Data Type Qualquer Char ou expressão numérica ou String válida.Any valid Char or String or numeric expression.
CByte Tipo de Dados ByteByte Data Type Byte.MinValue (0) por meio de Byte.MaxValue (255) (não assinado); as partes fracionárias são arredondadas. 1Byte.MinValue (0) through Byte.MaxValue (255) (unsigned); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho da conversão de ponto flutuante para byte com a função CByte; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to byte conversion with the CByte function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.
CChar Tipo de Dados de CaractereChar Data Type Qualquer expressão de Char ou String válida; somente o primeiro caractere de um String é convertido; o valor pode ser de 0 a 65535 (não assinado).Any valid Char or String expression; only first character of a String is converted; value can be 0 through 65535 (unsigned).
CDate Tipo de Dados de DataDate Data Type Qualquer representação válida de uma data e hora.Any valid representation of a date and time.
CDbl Tipo de Dados DuploDouble Data Type -1.79769313486231570 e + 308 a-4.94065645841246544 E-324 para valores negativos; 4.94065645841246544 e-324 a 1.79769313486231570 E + 308 para valores positivos.-1.79769313486231570E+308 through -4.94065645841246544E-324 for negative values; 4.94065645841246544E-324 through 1.79769313486231570E+308 for positive values.
CDec Tipo de Dados DecimalDecimal Data Type +/-79228162514264337593543950335 para números com escala zero, ou seja, números sem casas decimais.+/-79,228,162,514,264,337,593,543,950,335 for zero-scaled numbers, that is, numbers with no decimal places. Para números com 28 casas decimais, o intervalo é +/-7.9228162514264337593543950335.For numbers with 28 decimal places, the range is +/-7.9228162514264337593543950335. O menor número não zero possível é 0, 1 (+/-1E-28).The smallest possible non-zero number is 0.0000000000000000000000000001 (+/-1E-28).
CInt Tipo de Dados IntegerInteger Data Type Int32.MinValue (-2.147.483.648) por meio de Int32.MaxValue (2.147.483.647); as partes fracionárias são arredondadas. 1Int32.MinValue (-2,147,483,648) through Int32.MaxValue (2,147,483,647); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho da conversão de ponto flutuante para inteiro com a função CInt; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to integer conversion with the CInt function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.
CLng Tipo de Dados LongLong Data Type Int64.MinValue (-9.223.372.036.854.775.808) por meio de Int64.MaxValue (9.223.372.036.854.775.807); as partes fracionárias são arredondadas. 1Int64.MinValue (-9,223,372,036,854,775,808) through Int64.MaxValue (9,223,372,036,854,775,807); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho de ponto flutuante para conversão de inteiros de 64 bits com a função CLng; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to 64-bit integer conversion with the CLng function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.
CObj Tipo de Dados ObjectObject Data Type Qualquer expressão válida.Any valid expression.
CSByte Tipo de Dados SByteSByte Data Type SByte.MinValue (-128) por meio de SByte.MaxValue (127); as partes fracionárias são arredondadas. 1SByte.MinValue (-128) through SByte.MaxValue (127); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho do ponto flutuante para conversão de bytes assinados com a função CSByte; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to signed byte conversion with the CSByte function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.
CShort Tipo de Dados ShortShort Data Type Int16.MinValue (-32.768) por meio de Int16.MaxValue (32.767); as partes fracionárias são arredondadas. 1Int16.MinValue (-32,768) through Int16.MaxValue (32,767); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho de ponto flutuante para conversão de inteiros de 16 bits com a função CShort; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to 16-bit integer conversion with the CShort function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.
CSng Tipo de Dados SimplesSingle Data Type -3.402823 e + 38 a-1.401298 E-45 para valores negativos; 1.401298 e-45 a 3.402823 E + 38 para valores positivos.-3.402823E+38 through -1.401298E-45 for negative values; 1.401298E-45 through 3.402823E+38 for positive values.
CStr Tipo de Dados StringString Data Type Retorna para CStr dependem do argumento expression.Returns for CStr depend on the expression argument. Confira valores de retorno para a função CStr.See Return Values for the CStr Function.
CUInt Tipo de Dados UIntegerUInteger Data Type UInt32.MinValue (0) por meio de UInt32.MaxValue (4.294.967.295) (não assinado); as partes fracionárias são arredondadas. 1UInt32.MinValue (0) through UInt32.MaxValue (4,294,967,295) (unsigned); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho do ponto flutuante para conversão de inteiros sem sinal com a função CUInt; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to unsigned integer conversion with the CUInt function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.
CULng Tipo de Dados ULongULong Data Type UInt64.MinValue (0) a UInt64.MaxValue (18446744073709551615) (não assinado); as partes fracionárias são arredondadas. 1UInt64.MinValue (0) through UInt64.MaxValue (18,446,744,073,709,551,615) (unsigned); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho de ponto flutuante para conversão de inteiro longo sem sinal com a função CULng; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to unsigned long integer conversion with the CULng function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.
CUShort Tipo de Dados UShortUShort Data Type UInt16.MinValue (0) por meio de UInt16.MaxValue (65.535) (não assinado); as partes fracionárias são arredondadas. 1UInt16.MinValue (0) through UInt16.MaxValue (65,535) (unsigned); fractional parts are rounded.1

A partir do Visual Basic 15,8, Visual Basic otimiza o desempenho do ponto flutuante para conversão de inteiros de 16 bits sem sinal com a função CUShort; consulte a seção comentários para obter mais informações.Starting with Visual Basic 15.8, Visual Basic optimizes the performance of floating-point to unsigned 16-bit integer conversion with the CUShort function; see the Remarks section for more information. Consulte a seção exemplo de CInt para obter um exemplo.See the CInt Example section for an example.

1 partes fracionárias podem estar sujeitas a um tipo especial de arredondamento chamado de arredondamento do Banker.1 Fractional parts can be subject to a special type of rounding called banker's rounding. Consulte "Comentários" para obter mais informações.See "Remarks" for more information.

ComentáriosRemarks

Como regra, você deve usar as funções de conversão de tipo Visual Basic em preferência aos métodos .NET Framework como ToString(), seja na classe Convert ou em uma estrutura ou classe de tipo individual.As a rule, you should use the Visual Basic type conversion functions in preference to the .NET Framework methods such as ToString(), either on the Convert class or on an individual type structure or class. As funções de Visual Basic são projetadas para uma interação ideal com código de Visual Basic e também tornam seu código-fonte mais curto e mais fácil de ler.The Visual Basic functions are designed for optimal interaction with Visual Basic code, and they also make your source code shorter and easier to read. Além disso, os métodos de conversão de .NET Framework nem sempre produzem os mesmos resultados que as funções de Visual Basic, por exemplo, ao converter Boolean em Integer.In addition, the .NET Framework conversion methods do not always produce the same results as the Visual Basic functions, for example when converting Boolean to Integer. Para obter mais informações, consulte Solucionando problemas de tipos de dados.For more information, see Troubleshooting Data Types.

A partir do Visual Basic 15,8, o desempenho da conversão de ponto-a-inteiro flutuante é otimizado quando você passa o Single ou Double valor retornado pelos métodos a seguir para uma das funções de conversão de inteiro (CByte, CShort, CInt, CLng, CSByte, CUShort, CUInt, CULng):Starting with Visual Basic 15.8, the performance of floating-point-to-integer conversion is optimized when you pass the Single or Double value returned by the following methods to one of the integer conversion functions (CByte, CShort, CInt, CLng, CSByte, CUShort, CUInt, CULng):

Essa otimização permite que um código que faz um grande número de conversões de inteiros seja executado até duas vezes mais rápido.This optimization allows code that does a large number of integer conversions to run up to twice as fast. O exemplo a seguir ilustra essas conversões otimizadas de ponto flutuante para inteiro:The following example illustrates these optimized floating-point-to-integer conversions:

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

ComportamentoBehavior

  • Coerção.Coercion. Em geral, você pode usar as funções de conversão de tipo de dados para forçar o resultado de uma operação para um tipo de dados específico em vez do tipo de dados padrão.In general, you can use the data type conversion functions to coerce the result of an operation to a particular data type rather than the default data type. Por exemplo, use CDec para forçar aritmética decimal nos casos em que a precisão única, a precisão dupla ou a aritmética de inteiro normalmente ocorreria.For example, use CDec to force decimal arithmetic in cases where single-precision, double-precision, or integer arithmetic would normally take place.

  • Conversões com falha.Failed Conversions. Se o expression passado para a função estiver fora do intervalo do tipo de dados para o qual será convertido, ocorrerá uma OverflowException.If the expression passed to the function is outside the range of the data type to which it is to be converted, an OverflowException occurs.

  • Partes fracionárias.Fractional Parts. Quando você converte um valor não integral em um tipo integral, as funções de conversão de inteiro (CByte, CInt, CLng, CSByte, CShort, CUInt, CULnge CUShort) removem a parte fracionária e arredondam o valor para o número inteiro mais próximo.When you convert a nonintegral value to an integral type, the integer conversion functions (CByte, CInt, CLng, CSByte, CShort, CUInt, CULng, and CUShort) remove the fractional part and round the value to the closest integer.

    Se a parte fracionária for exatamente 0,5, as funções de conversão de inteiros o arredondarão para o inteiro par mais próximo.If the fractional part is exactly 0.5, the integer conversion functions round it to the nearest even integer. Por exemplo, 0,5 arredonda para 0 e 1,5 e 2,5 são arredondados para 2.For example, 0.5 rounds to 0, and 1.5 and 2.5 both round to 2. Isso às vezes é chamado de arredondamento do Banker, e sua finalidade é compensar uma tendência que poderia se acumular ao adicionar muitos desses números juntos.This is sometimes called banker's rounding, and its purpose is to compensate for a bias that could accumulate when adding many such numbers together.

    CInt e CLng diferem das funções Int e Fix, que truncam, em vez de arredondar, a parte fracionária de um número.CInt and CLng differ from the Int and Fix functions, which truncate, rather than round, the fractional part of a number. Além disso, Fix e Int sempre retornam um valor do mesmo tipo de dados que você passa.Also, Fix and Int always return a value of the same data type as you pass in.

  • Conversões de data/hora.Date/Time Conversions. Use a função IsDate para determinar se um valor pode ser convertido em uma data e hora.Use the IsDate function to determine if a value can be converted to a date and time. CDate reconhece literais de data e literais de tempo, mas não valores numéricos.CDate recognizes date literals and time literals but not numeric values. Para converter um valor de Date Visual Basic 6,0 em um valor Date no Visual Basic 2005 ou em versões posteriores, você pode usar o método DateTime.FromOADate.To convert a Visual Basic 6.0 Date value to a Date value in Visual Basic 2005 or later versions, you can use the DateTime.FromOADate method.

  • Valores de data/hora neutros.Neutral Date/Time Values. O tipo de dados Date sempre contém informações de data e hora.The Date Data Type always contains both date and time information. Para fins de conversão de tipo, 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) para ser um valor neutro para o tempo.For purposes of type conversion, Visual Basic considers 1/1/0001 (January 1 of the year 1) to be a neutral value for the date, and 00:00:00 (midnight) to be a neutral value for the time. Se você converter um valor de Date em uma cadeia de caracteres, CStr não incluirá valores neutros na cadeia de caracteres resultante.If you convert a Date value to a string, CStr does not include neutral values in the resulting string. 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 são suprimidas.For example, if you convert #January 1, 0001 9:30:00# to a string, the result is "9:30:00 AM"; the date information is suppressed. No entanto, as informações de data ainda estão presentes no valor de Date original e podem ser recuperadas com funções como DatePart função.However, the date information is still present in the original Date value and can be recovered with functions such as DatePart function.

  • Sensibilidade de cultura.Culture Sensitivity. 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.The type conversion functions involving strings perform conversions based on the current culture settings for the application. Por exemplo, CDate reconhece formatos de data de acordo com a configuração de localidade do seu sistema.For example, CDate recognizes date formats according to the locale setting of your system. Você deve fornecer o dia, o mês e o ano na ordem correta para sua localidade, ou a data pode não ser interpretada corretamente.You must provide the day, month, and year in the correct order for your locale, or the date might not be interpreted correctly. Um formato de data por extenso não será reconhecido se ele contiver uma cadeia de caracteres de dia da semana, como "quarta-feira".A long date format is not recognized if it contains a day-of-the-week string, such as "Wednesday".

    Se você precisar converter de ou para uma representação de cadeia de caracteres de um valor em um formato diferente daquele especificado por sua localidade, não será possível usar as funções de conversão de tipo Visual Basic.If you need to convert to or from a string representation of a value in a format other than the one specified by your locale, you cannot use the Visual Basic type conversion functions. Para fazer isso, use os métodos ToString(IFormatProvider) e Parse(String, IFormatProvider) do tipo desse valor.To do this, use the ToString(IFormatProvider) and Parse(String, IFormatProvider) methods of that value's type. Por exemplo, use Double.Parse ao converter uma cadeia de caracteres em um Doublee use Double.ToString ao converter um valor do tipo Double em uma cadeia de caracteres.For example, use Double.Parse when converting a string to a Double, and use Double.ToString when converting a value of type Double to a string.

Função CTypeCType Function

A função CType usa um segundo argumento, typenamee impõe expression para typename, em que typename pode ser qualquer tipo de dados, estrutura, classe ou interface para o qual exista uma conversão válida.The CType Function takes a second argument, typename, and coerces expression to typename, where typename can be any data type, structure, class, or interface to which there exists a valid conversion.

Para obter uma comparação de CType com as outras palavras-chave de conversão de tipo, consulte operador DirectCast e Operador TryCast.For a comparison of CType with the other type conversion keywords, see DirectCast Operator and TryCast Operator.

Exemplo de CBoolCBool Example

O exemplo a seguir usa a função CBool para converter expressões em valores Boolean.The following example uses the CBool function to convert expressions to Boolean values. Se uma expressão for avaliada como um valor diferente de zero, CBool retornará True; caso contrário, ele retornará False.If an expression evaluates to a nonzero value, CBool returns True; otherwise, it returns 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 de CByteCByte Example

O exemplo a seguir usa a função CByte para converter uma expressão em um Byte.The following example uses the CByte function to convert an expression to a Byte.

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 CCharCChar Example

O exemplo a seguir usa a função CChar para converter o primeiro caractere de uma expressão de String para um tipo de Char.The following example uses the CChar function to convert the first character of a String expression to a Char type.

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 para CChar deve ser do tipo de dados Char ou String.The input argument to CChar must be of data type Char or 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érico.You cannot use CChar to convert a number to a character, because CChar cannot accept a numeric data type. 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.The following example obtains a number representing a code point (character code) and converts it to the corresponding character. Ele usa a função InputBox para obter a cadeia de caracteres de dígitos, CInt para converter a cadeia de caracteres para o tipo Integere ChrW para converter o número em Charde tipo.It uses the InputBox function to obtain the string of digits, CInt to convert the string to type Integer, and ChrW to convert the number to type 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 CDateCDate Example

O exemplo a seguir usa a função CDate para converter cadeias de caracteres em valores Date.The following example uses the CDate function to convert strings to Date values. Em geral, as datas e as horas de codificação rígida como cadeias de caracteres (como mostrado neste exemplo) não são recomendadas.In general, hard-coding dates and times as strings (as shown in this example) is not recommended. Use literais de data e literais de tempo, como #Feb 12, 1969 # e #4:45:23 PM #, em vez disso.Use date literals and time literals, such as #Feb 12, 1969# and #4:45:23 PM#, instead.

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 CDblCDbl Example

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 CDecCDec Example

O exemplo a seguir usa a função CDec para converter um valor numérico em Decimal.The following example uses the CDec function to convert a numeric value to 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 de CIntCInt Example

O exemplo a seguir usa a função CInt para converter um valor em Integer.The following example uses the CInt function to convert a value to 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 CLngCLng Example

O exemplo a seguir usa a função CLng para converter valores em Long.The following example uses the CLng function to convert values to 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 CObjCObj Example

O exemplo a seguir usa a função CObj para converter um valor numérico em Object.The following example uses the CObj function to convert a numeric value to Object. A variável Object em si contém apenas um ponteiro de quatro bytes, que aponta para o valor Double atribuído a ela.The Object variable itself contains only a four-byte pointer, which points to the Double value assigned to it.

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 de CSByteCSByte Example

O exemplo a seguir usa a função CSByte para converter um valor numérico em SByte.The following example uses the CSByte function to convert a numeric value to 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 CShortCShort Example

O exemplo a seguir usa a função CShort para converter um valor numérico em Short.The following example uses the CShort function to convert a numeric value to 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 CSngCSng Example

O exemplo a seguir usa a função CSng para converter valores em Single.The following example uses the CSng function to convert values to 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 de CStrCStr Example

O exemplo a seguir usa a função CStr para converter um valor numérico em String.The following example uses the CStr function to convert a numeric value to 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 função CStr para converter valores de Date em valores String.The following example uses the CStr function to convert Date values to String values.

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 valor de Date no formato curto padrão para a localidade atual, por exemplo, "6/15/2003 4:35:47 PM".CStr always renders a Date value in the standard short format for the current locale, for example, "6/15/2003 4:35:47 PM". No entanto, CStr suprime os valores neutros de 1/1/0001 para a data e 00:00:00 para a hora.However, CStr suppresses the neutral values of 1/1/0001 for the date and 00:00:00 for the time.

Para obter mais detalhes sobre os valores retornados por CStr, consulte valores de retorno para a função CStr.For more detail on the values returned by CStr, see Return Values for the CStr Function.

Exemplo de CUIntCUInt Example

O exemplo a seguir usa a função CUInt para converter um valor numérico em UInteger.The following example uses the CUInt function to convert a numeric value to 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 CULngCULng Example

O exemplo a seguir usa a função CULng para converter um valor numérico em ULong.The following example uses the CULng function to convert a numeric value to 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 de CUShortCUShort Example

O exemplo a seguir usa a função CUShort para converter um valor numérico em UShort.The following example uses the CUShort function to convert a numeric value to 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émSee also