Función CStr

Devuelve una expresión que se ha convertido en una variante de subtipo String.

Sintaxis

CStr(expression)

Observaciones

El argumento expression es cualquier expresión válida.

En general, puede documentar el código mediante las funciones de conversión de tipo de datos para mostrar que el resultado de una operación se debe expresar como un tipo de datos concreto en lugar del tipo de datos predeterminado. Por ejemplo, utilice CStr para forzar que el resultado se exprese como una cadena.

Debe utilizar la función CStr en lugar de Str para proporcionar conversiones de alcance internacional de cualquier otro tipo de datos a un subtipo String. Por ejemplo, los distintos separadores decimales se reconocen correctamente en función de la configuración regional del sistema.

Los datos de la expresión determinan lo que se devuelve según la siguiente tabla:

Tabla 11-8 Asignación de devolución de expresión

Si la expresión es	CStr devuelve
Booleano	Una cadena que contiene True o False.
Date	Una cadena que contiene una fecha en formato de fecha corta del sistema.
Vacío	Una cadena de longitud cero (" ").
Otros números	Una cadena que contiene el número.

En el siguiente ejemplo se utiliza la función CStr para convertir un valor numérico en una cadena:

Ejemplo 1:

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

Ejemplo 2:

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

Ejemplo 3:

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

Ejemplo 4:

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

Ejemplo 5:

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

Ejemplo 6:

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

Ejemplo 7:

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