Función Asc

Devuelve el código de carácter ANSI correspondiente a la primera letra de una cadena.

Sintaxis

ASC(string)

Observaciones

El argumento string es cualquier expresión de cadena válida. Si la cadena no contiene caracteres, se produce un error de tiempo de ejecución.

En el siguiente ejemplo, ASC devuelve el código de carácter ANSI de la primera letra de cada cadena. En el siguiente ejemplo se muestra el uso de la función ASC:

Ejemplo 1: una única letra en mayúscula.

Dim MyNumber
MyNumber = Asc("A")       ' Returns 65
'MyNumber has value 65 ANSI Character Code of "A"

Ejemplo 2: una única letra en minúscula.

Dim MyNumber
MyNumber = Asc("a")       ' Returns 97
'MyNumber has value 97 ANSI Character Code of "a"

Ejemplo 3: palabra que empieza por una letra en mayúscula.

Dim MyNumber
MyNumber = Asc("Apple")   ' Returns 65
'MyNumber has value 65 ANSI Character Code of "A"

Ejemplo 4: palabra que empieza por una letra en minúscula.

Dim MyNumber
MyNumber = Asc("banana")  ' Returns 98
'MyNumber has value 98 ANSI Character Code of "b"

Ejemplo 5: carácter especial.

Dim MyNumber
MyNumber = Asc("!")       ' Returns 33
'MyNumber has value 33 ANSI Character Code of "!"

Ejemplo 6: número en una cadena.

MyNumber = Asc("12345")   ' Returns 49 (ANSI code for '1')
'MyNumber has value 49 ANSI Character Code of "1"

Ejemplo 7: carácter de espacio.

Dim MyNumber
MyNumber = Asc(" ")       ' Returns 32
'MyNumber has value 32 ANSI Character Code of " "