Gibt eine ganze Zahl zurück, die den Zeichencode darstellt, der dem ersten Buchstaben in einer Zeichenfolge entspricht.
Syntax
Asc(string)
Das erforderliche Zeichenfolgenargumentist ein beliebiger gültiger Zeichenfolgenausdruck. Wenn die Zeichenfolge keine Zeichen enthält, tritt ein Laufzeitfehler auf.
Hinweise
Der Bereich für Rückgaben beträgt 0 bis 255 auf Nicht-DBCS-Systemen, aber –32768 – 32767 auf DBCS-Systemen.
Hinweis
Die AscB-Funktion wird mit Bytedaten verwendet, die in einer Zeichenfolge enthalten sind. Anstatt den Zeichencode für das erste Zeichen zurückzugeben, gibt AscB das erste Byte zurück. Die AscW-Funktion gibt den Unicode-Zeichencode zurück, außer auf Plattformen, auf denen Unicode nicht unterstützt wird. In diesem Fall ist das Verhalten mit der Asc-Funktion identisch.
Hinweis
Visual Basic für den Macintosh unterstützt keine Unicode-Zeichenfolgen. Daher kann AscW(n), anders als in der Windows-Umgebung, nicht alle Unicode-Zeichen für n-Werte im Bereich von 128 bis 65.535 zurückgeben. Stattdessen geht AscW(n) gemäß einer "besten Vermutung" für Unicode-Werte für n vor, die größer sind als 127. Daher sollten Sie AscW in der Macintosh-Umgebung nicht verwenden.
Abfragebeispiele
| Ausdruck | Ergebnisse |
|---|---|
| SELECT Asc("a") AS Expr1 FROM ProductSales; | Gibt den ASCII-Code für die Zeichenfolge "a" zurück. Ergebnis: "97". |
| SELECT Asc("Z") AS AscCode FROM ProductSales; | Gibt den ASCII-Code für die Zeichenfolge "Z" in der Spalte AscCode zurück. Ergebnis: "90". |
VBA-Beispiel
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die Asc-Funktion verwendet, um den Zeichencode zurückzugeben, der dem ersten Buchstaben in der Zeichenfolge entspricht.
Dim MyNumber
MyNumber = Asc("A") ' Returns 65.
MyNumber = Asc("a") ' Returns 97.
MyNumber = Asc("Apple") ' Returns 65.