Função CStr

Retorna uma expressão que foi convertida em uma Variante do subtipo String.

Sintaxe

CStr(expression)

Comentários

O argumento expression é qualquer expressão válida.

Em geral, é possível documentar o código usando 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 de dados específico, em vez do tipo de dados padrão. Por exemplo, use CStr para forçar o resultado a ser expresso como uma String.

Você deve usar a função CStr, em vez da Str, para fornecer conversões com conhecimento internacional de qualquer outro tipo de dados em um subtipo de String. Por exemplo, diferentes separadores de decimais são devidamente reconhecidos com base na configuração regional do sistema.

Os dados na expressão determinam o que é retornado de acordo com a seguinte tabela:

Tabela 11-8 Mapeamento de Retorno da Expressão

Se a expressão for CStr retornará
Booliano Uma String que contém True ou False.
Data Uma String com uma data no formato de data curta do sistema.
Empty Uma String de tamanho zero (" ").
Outro valor numérico Uma String com o número.

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

Exemplo 1:

Dim MyDouble, MyString
MyDouble = 437.324           ' MyDouble is a Double.
MyString = CStr(MyDouble)    ' MyString contains "437.324".
'Output: "437.324"

Exemplo 2:

Dim MyBool
MyBool = True                ' MyBool is a Boolean.
MyString = CStr(MyBool)      ' MyString contains "True".
'Output: "True"

Exemplo 3:

MyBool = False               ' MyBool is a Boolean.
MyString = CStr(MyBool)      ' MyString contains "False".
'Output: "False"

Exemplo 4:

Dim MyDate
MyDate = CDate("10/19/1962")      
MyString = CStr(MyDate)      
'Output: "19/10/1962" (or your system's short-date format)

Exemplo 5:

Dim MyInt
MyInt = 100           
MyString = CStr(MyInt)              
'Output: "100"

Exemplo 6:

Dim MyValue
MyValue = Empty
MyString = CStr(MyValue)            
'Output: ""

Exemplo 7:

Dim MyLong
MyLong = 1234567890                
MyString = CStr(MyLong)            
'Output: "1234567890"