TEMA 14: Funciones

 

En este tema vamos a ver aquellas funciones que hemos utilizado en nuestros programas y además incluimos otras.

Nota: es importante comprobar está página, porque se actualizará constantemente a medida que avancemos en el curso, incluyendo más funciones.

--------------------------------------------------------------------------

• Asc: devuelve el número ASCII correspondiente al primer carácter de la cadena de caracteres. Su sintaxis es Asc(Cadena). Ejemplo: Asc("A")  'Devuelve 65

• Chr: devuelve el carácter correspondiente al número especificado de la tabla ASCII. Su sintáxis es Chr(Código_carácter). Ejemplo: Chr(65)  'Devuelve "A"

--------------------------------------------------------------------------

• Date: devuelve la fecha actual del sistema. También podemos establecer la fecha que deseemos. Ejemplo: Print Date  'Resultado 20/12/00

• Now: devuelve la fecha y hora actual del sistema. 
  Ejemplo: Print Now  'Devuelve 21/12/00  19:40:37

• Time: devuelve la hora actual del sistema. También podemos establecer la hora que deseemos. Ejemplo: Print Time  'Resultado 19:52:31

--------------------------------------------------------------------------

• Format: permite convertir datos de tipo numérico en cadenas de texto con un determinado formato. Esta función permite controlar el número y situación de las cifras, el punto decimal, el uso de caracteres monetarios, etc. Su sintaxis es:

Format(Expresión[, Formato])

En Expresión se especifica el valor numérico a convertir, mientras que en Formato se especifica una cadena de caracteres que indica cómo se visualizará dicho valor. Los símbolos más utilizados son:

TABLA 17. SÍMBOLOS MÁS UTILIZADOS EN EL PARÁMETRO FORMATO
Símbolo	Descripción
< >	Forzar minúsculas. Muestra todos los caracteres en letra minúscula. Forzar mayúsculas. Muestra todos los caracteres en letra mayúscula.
0	Presenta un dígito si la expresión tiene un dígito en esa posición, o un cero si no.
# .	Presenta un dígito si la expresión tiene un dígito en esa posición, o nada si no la tiene. Marca la posición del punto decimal.
%	La expresión se multiplica por 100, y el carácter % aparece en la posición indicada.
,	Marca la posición de la coma separadora de millares.
E- E+ e- e+	Presenta el número en notación científica, separando mantisa y exponente con E.
-+$() espacio	Presenta el carácter literalmente, tal y como aparece en la cadena de formato.
:	Marca la posición del separador de horas.
/ D	Marca la posición del separador de fechas. Presenta el día del mes.
M	Presenta el mes del año.
Y	Presenta el año.
H	Presenta la hora del día.
N	Presenta los minutos de la hora.
S	Presenta los segundos del minuto.
W	Presenta el día de la semana.
AMPM	Utiliza reloj de 12 horas y presenta el símbolo AM/PM.

Ejemplos:

'Formatos de números
Format(7654.3, "00000.00")          'Resultado: 07654.30
Format(7654.3, "#####,##")       'Resultado: 7654.3
Format(7654.3, "##,##0.00")       'Resultado: 7,654.30
Format(23.4, "$#0.00")               'Resultado: $23.40

'Formatos de fechas y horas
Format(Now, "d/m/yy")                'Resultado: 26/2/97
Format(Now, "dddd,dd mmmm, yy")   'Resultado: miércoles, 26 febrero, 1997
Format(Now, "d-mmm")                'Resultado: 26-feb
Format(Now, "mmmm-yy"              'Resultado: febero-97
Format(Now, "hh:mm AM/PM")        'Resultado: 08:56 AM
Format(Now, "h:mm:ss a/p")           'Resultado: 8:57:43 a
Format(Now, "d-mmmm h:mm")        'Resultado: 26-febrero 8:57

--------------------------------------------------------------------------

• Len: devuelve la longitud de una cadena de caracteres o el número de bytes requerido para almacenar una variable. Su sintaxis es Len(Cadena|Nombrevariable). Ejemplo:

Dim Entero as Integer
Dim Cadena as String
Cadena = "Hola a todos"
Print Len(Cadena)  'Devuelve 12
Print Len(Entero)  'Devuelve 2

--------------------------------------------------------------------------

• LoadPicture: carga una imagen gráfica almacenada en un archivo. Su sintaxis es LoadPicture( cadena). LoadPicture sin argumentos borra la imagen gráfica. A las propiedades Icon y DragIcon también se le pueden asignar una imagen ICO. Ejemplo:

ImgDibujo.Picture = LoadPicture("C:\Windows\Dibujo.bmp")

--------------------------------------------------------------------------

• QBColor: devuelve el valor del color correspondiente a uno de los 16 colores predefinidos de versiones anteriores del lenguaje Basic. Su sintaxis es
  QBColor(NumColor)

El argumento NumColor indica el número de color y sus valores están comprendidos entre 0 y 15. Ver la siguiente tabla:

 

Número	Color	Número	Color
0	Negro	8	Gris
1	Azul	9	Azul Brillante
2	Verde	10	Verde Brillante
3	Celeste	11	Celeste Brillante
4	Rojo	12	Rojo Brillante
5	Morado	13	Morado Brillante
6	Amarillo	14	Amarillo Brillante
7	Blanco	15	Blanco Brillante

Ejemplo: Form1.BackColor = QBColor(4)  'Color del fondo del Formulario rojo

--------------------------------------------------------------------------

• RGB: devuelve un número entero que representa un color. Su sintaxis es
  RGB(rojo, verde, azul) Ejemplo:

Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)  'Dependiendo de la propiedad Value, se produce una combinación de colores para el fondo de la etiqueta 1

--------------------------------------------------------------------------

• Rnd: se utiliza para devolver números aleatorios. Mediante la siguiente fórmula podemos producir enteros aleatorios.

Int((Límite_superior - Límiteinferior + 1) * Rnd + Límite_inferior)

Para no repetir la misma secuencia utilizamos la instrucción Ramdomize Timer. Ejemplo: Valor = Int((6 * Rnd) + 1)  'Genera un valor aleatorio entre 1 y 6

--------------------------------------------------------------------------

• Str: convierte un número o una variable numérica en una cadena. Su sintaxis es
  Str( Número). El número es de tipo Long. Se reserva un espacio a la izquierda para el signo del número. Si utilizamos Format, este no incluye un espacio a la izquierda para el signo del número. Ejemplo:

Str(459)        'Devuelve " 459"
Str(-459.65)   'Devuelve "-459.65"

• Val: convierte una cadena a un número. Su sintaxis es Val( Cadena). La función Val deja de leer la cadena en el primer carácter que no pueda reconocer como parte de un número. La función reconoce los prefijos de base &O (para octal) y &H (para hexadecimal). Los espacios en blanco, los tabuladores y los avances de línea se eliminan del argumento. Ejemplo:

  Val("2 45")     'Devuelve 245
  Val("&HFFFF")  'Devuelve -1

--------------------------------------------------------------------------