Renvoie une expression qui a été convertie en variante de sous-type String.
Syntaxe
CStr(expression)
Remarques
L'argument expression représente toute expression valide.
En général, vous pouvez documenter votre code en utilisant les fonctions de conversion de type de données pour montrer que le résultat d'une opération doit être exprimé sous la forme d'un type de données particulier plutôt que sous la forme du type de données par défaut. Par exemple, utilisez CStr pour forcer l'expression du résultat sous forme de chaîne.
Vous devez utiliser la fonction CStr au lieu de Str pour effectuer des conversions tenant compte des normes internationales de tout autre type de données en sous-type String. Par exemple, différents séparateurs décimaux sont correctement reconnus en fonction des paramètres régionaux de votre système.
Les données dans expression déterminent ce qui est renvoyé selon le tableau suivant :
Tableau 11-8 Correspondance de renvoi d'expression
| Si expression est de type | CStr renvoie |
|---|---|
| Booléen | Une chaîne contenant True ou False. |
| Date | Une chaîne contenant une date au format de date courte de votre système. |
| Vide | Une chaîne de longueur nulle ("). |
| Autre valeur numérique | Une chaîne contenant le nombre. |
Les exemples suivants utilisent la fonction CStr pour convertir une valeur numérique en chaîne :
Exemple 1 :
Dim MyDouble, MyString MyDouble = 437.324 ' MyDouble is a Double. MyString = CStr(MyDouble) ' MyString contains "437.324". 'Output: "437.324"
Exemple 2 :
Dim MyBool MyBool = True ' MyBool is a Boolean. MyString = CStr(MyBool) ' MyString contains "True". 'Output: "True"
Exemple 3 :
MyBool = False ' MyBool is a Boolean. MyString = CStr(MyBool) ' MyString contains "False". 'Output: "False"
Exemple 4 :
Dim MyDate
MyDate = CDate("10/19/1962")
MyString = CStr(MyDate)
'Output: "19/10/1962" (or your system's short-date format)
Exemple 5 :
Dim MyInt MyInt = 100 MyString = CStr(MyInt) 'Output: "100"
Exemple 6 :
Dim MyValue MyValue = Empty MyString = CStr(MyValue) 'Output: ""
Exemple 7 :
Dim MyLong MyLong = 1234567890 MyString = CStr(MyLong) 'Output: "1234567890"