Renvoie un entier représentant le code de caractère correspondant à la première lettre d’une chaîne.
Syntaxe
Asc ( string )
Leargumentde chaîne requis est tout expression de chaîne valide. Si la chaîne ne contient aucun caractère, une erreur d’exécution se produit.
Notes
La plage de retours est comprise entre 0 et 255 sur les systèmes non-DBCS, mais entre -32768 et 32767 sur les systèmes DBCS.
Remarque : La fonction AscB est utilisée avec les données d’octet contenues dans une chaîne. Au lieu de retourner le code de caractère du premier caractère, AscB retourne le premier octet. La fonction AscW retourne le code de caractère Unicode, sauf sur les plateformes où Unicode n’est pas pris en charge, auquel cas le comportement est identique à celui de la fonction Asc .
Remarque : Visual Basic pour Macintosh ne prend pas en charge les chaînes Unicode. Par conséquent, AscW(n) ne peut pas retourner tous les caractères Unicode pour n valeurs comprises entre 128 et 65 535, comme dans l’environnement Windows. Au lieu de cela, AscW(n) tente une « meilleure estimation » pour les valeurs Unicode n supérieures à 127. Par conséquent, vous ne devez pas utiliser AscW dans l’environnement Macintosh.
Exemples de requêtes
|
Expression |
Résultats |
|
SELECT Asc(« a ») AS Expr1 FROM ProductSales ; |
Retourne le code « ASCII » pour la chaîne « a ». Résultat : « 97 ». |
|
SELECT Asc(« Z ») AS AscCode FROM ProductSales ; |
Retourne le code « ASCII » de la chaîne « Z » dans la colonne AscCode. Résultat : « 90 ». |
Exemple VBA
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Asc pour renvoyer un code de caractère correspondant à la première lettre de la chaîne.
Dim MyNumberMyNumber = Asc("A") ' Returns 65.MyNumber = Asc("a") ' Returns 97.MyNumber = Asc("Apple") ' Returns 65.
