Funciones del lenguaje (XIII)
por Luciano Moreno, del departamento de Diseño Web de BJS Software.

Funciones del lenguaje (T-Y).-

* Tan( angulo )

Función trigonométrica. Puede recibir como argumento cualquier número, variable que lo contenga o expresión numérica válida que pueda representar un ángulo en radianes, retornando el valor de la tangente de dicho ángulo.

Dado un ángulo de un triángulo rectángulo, la tangente de dicho ángulo es la razón del seno y el coseno del mismo, es decir:

tangente(angulo) = seno(angulo) / coseno(angulo)

Gráficamente:

es decir, la tangente de un ángulo es la razón entre el cateto opuesto al ángulo y el cateto contiguo.

Para convertir grados en radianes hay que multiplicar los grados por PI/180. Para convertir los radianes en grados, hay que multiplicar los radianes por 180/PI ( PI ~= 3,1415926).

Ejemplo:

<%

    Dim MiAngulo, MiTangente

    MiAngulo =  1.5
    MiTangente = Tan(MiAngulo)

%>

que nos retorna MiTangente = 2.6185

* Time

Función de fechas. No precisa argumento alguno, retornando una expresión que representa la hora del sistema como dato de tipo Variant, subtipo Date.

Ejemplo:

<script language="VBScript">
    Function MiHora()
          MiHora=Time
          MsgBox "La hora de tu sistema es " & MiHora    
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiHora()">
</form>

que nos da:

* Timer

Función de fechas. No precisa argumentos, retornando el número de segundos que han pasado desde las 12:00 a.m. (medianoche).

Aunque parezca poco práctica, esta función nos puede resolver muchos problemas relacionados con el computo de tiempos. Como ejemplo, vamos a obtener el tiempo en segundos que el usuario tarda en cerrar una ventana:

<script language="VBScript">
    Function MiTimer()
       Dim Inicio, Fin
       Inicio = Timer
       MsgBox "Cuando gustes cierra esta ventana"
       Fin = Timer
       MiTimer = Fin - Inicio
       MsgBox "Has tardado " & MiTimer & " segundos en cerra la ventana"
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiTimer()">
</form>

que podemos probar pulsando el siguiente botón:

* TimeSerial( hora, minuto, segundo )

Función de fechas. Recibe como argumentos obligatorios 3 números, variables que los contengan o expresiones numéricas válidas. El primero, que representa una hora, debe estar entre 0 (12:00 A.M.) y 23 (11:00 p.m.), mientras que el segundo, que representa los minutos, y el tercero, que representa los segundos, pueden tomar cualquier valor numérico entre -32.768 a 32.767, aunque lo normal es que se encuentren en el intervalo 0-59. Retorna un tipo Variant de subtipo Date que contiene una hora compuesta por una hora, minuto y segundo específicos, es decir, una hora con formato válido.

Cuando el argumento minuto o el argumento segundo sobrepasan el intervalo aceptado para dichos argumentos, se aumenta hasta la siguiente unidad mayor apropiada. Por ejemplo, si especifica 65 minutos, se evalúa como una hora y 5 minutos.

Ejemplo:

<%

    Dim MiTiempo, MiHora, MiMinuto, MiSegundo

    MiHora = 18
    MiMinuto = 20
    MiSegundo = 15

    MiTiempo = TimeSerial(MiHora, MiMinuto, MiSegundo)

%>

que nos da MiTiempo = 6:20:15 PM.

* TimeValue( hora )

Función de fechas. Recibe como argumento una cadena, variable que la contenga o expresión de cadena válida que represente una hora desde las 0:00:00 (12:00:00 a.m.) a las 23:59:59 (11:59:59 p.m.), inclusive, retornando un tipo Variant de subtipo Date que contiene la hora. Se suele usar para convertir cadenas en datos de hora válidos.

Ejemplo:

<%

    Dim MiTiempo, MiHora

    MiTiempo = "2:15:00 PM"

    MiHora = TimeValue(Tiempo)

%>

con lo que MiHora contendrá 2:15:00 PM.

* Trim( cadena )

Función de cadenas. Recibe como argumento una cadena, variable que la contenga o expresión de cadena válida, retornando dicha cadena pero sin espacios en blanco en su inicio ni en su fin. Es decir, elimina los espacios en blanco que haya al principio y al final de la cadena. Si cadena contiene Null se retorna Null.

Esta función pertenece al grupo de LTrim y RTrim, siendo su efecto el de estas dos funciones juntas.

Ejemplo:

<%

    Dim MiCadena, MiTrim

    MiCadena = "    Hola Mundo     "
    MiTrim = Trim(MiCadena)

%>

con lo que MiTrim = "Hola Mundo"

* TypeName( variable )

Función de tipos de datos. Recibe como argumento una variable, retornando el nombre de subtipo del dato que contiene.

Los valores de retorno posibles son:

valor	descripción
Byte	Valor byte
Integer	Valor entero
Long	Valor de número entero largo
Single	Valor de punto flotante de precisión simple
Double	Valor de punto flotante de precisión doble
Currency	Valor de moneda
Decimal	Valor decimal
Date	Valor de fecha u hora
String	Valor de cadena de caracteres
Boolean	Valor booleano: True (verdadero) o False (falso)
Empty	Sin inicializar
Null	Datos no válidos
<object type>	Nombre de tipo real de un objeto
Object	Objeto genérico
Unknown	Tipo de objeto desconocido
Nothing	Variable de objeto que aún no hace referencia a una instancia de objeto
Error	Error

Ejemplo:

<%

    Dim MiVariable, MiTipo

    MiVariable = "Hola Mundo"
    MiTipo = TypeName(MiVariable)

%>

que retorna MiTipo = "String".

* UBound( matriz [, dimension] )

Función de matrices. Recibe como argumento obligado el nombre de una matriz, retornando el índice mayor disponible para la dimensión indicada de dicha matriz. También posée un argumento opcional, dimension, número entero que indica qué enlace menor de la dimensión se devuelve. Utilice 1 para la primera dimensión, 2 para la segunda y así sucesivamente. Si se omite, se le supone le valor 1.

Esta función se suele usar conjuntamente con LBound para determinar el tamaño de una matriz.

* UCase( cadena )

Función de cadenas. Recibe como argumento una cadena, variable que la contenga o expresión de cadena válida, retornando dicha cadena con todos sus caracteres en mayúsculas. Sólo las letras minúsculas se convierten en mayúsculas; todas la letras mayúsculas y caracteres no letras permanecen inalteradas. Si cadena contiene Null, retorna Null.

Ejemplo:

<script language="VBScript">
    Function MiUCase()
       Dim MiCadena
       MiCadena= InputBox("Introduce una cadena con letras en minuscula","Ejemplo de funcion UCase")
       MiUCase = UCase(MiCadena)
       MsgBox "La cadena en mayusculas es " & MiUCase
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiUCase()">
</form>

que nos da:

* VarType( variable )

Función de variables. Recibe como argumento en nombre de una variable, retornando un valor que indica el subtipo de la variable.

Los posibles valores de retorno son:

subtipo	descripción	vartype
Empty	variable sin inicializar (0 si número - "" si cadena)	0
Null	variable intencionadamente vacía	1
Boolean	variable booleana >> dos valores posibles: true / false (-1 / 0)	11
Byte	entero entre 0 y 255 (es un octeto)	17
Integer	entero entre -32.768 y 32.768	2
Currency	real entre -922.337.203.685.477,5808 y 922.337.203.685.477,580	6
Long	entero entre -2.147.483.648 y .147.483.648	3
Single	real coma flotante de precisión simple	4
Double	real de precisión doble	5
Date	fecha entre 1/1/100 y 31/12/9999	7
String	cadena de longitud hasta 2.000.000.000 de caracteres	8
Object	variable que contiene un objeto	9
Error	variable que contiene un número de error	10

La función VarType nunca devuelve el valor para la matriz por sí solo. Se agrega siempre a algún otro valor para indicar una cadena de un tipo concreto. El valor para Variant sólo se devuelve cuando se ha agregado al valor para Matriz para indicar que el argumento a la función VarType es una matriz. Por ejemplo, el valor devuelto por una matriz de enteros se calcula como 2 + 8192, o 8194. Si un objeto tiene una propiedad predeterminada, VarType (objeto) devuelve el tipo de la propiedad predeterminada.

Ejemplo:

<%

    Dim MiVariable, MiTipo

    MiVariable = "Hola Mundo"
    MiTipo = VarType(MiVariable)

%>

que nos retorna MiTipo = 8  (valor correspondiente al subtipo String).

* Weekday( fecha [, primer_dia] )

Función de fechas. Recibe como argumento obligatorio cualquier expresión que pueda representar una fecha, retornando un número entero que representa el día de la semana.

Como argumento opcional puede recibir primer_dia, constante que especifica el primer día de la semana en nuestro país. Este argumento puede tomar los siguientes valores:

Constante	valor	descripción
vbUseSystem	0	Usa valores de API de idioma nacional (NLS).
vbSunday	1	domingo
vbMonday	2	lunes
vbTuesday	3	martes
vbWednesday	4	miércoles
vbThursday	5	jueves
vbFriday	6	viernes
vbSaturday	7	sábado

Si se omite este argumento se toma vbSunday.

Valores de retorno:

La función Weekday puede retornar uno de los siguientes valores:

constante	valor	descripción
vbSunday	1	domingo
vbMonday	2	lunes
vbTuesday	3	martes
vbWednesday	4	miércoles
vbThursday	5	jueves
vbFriday	6	viernes
vbSaturday	7	sábado

Como ejemplo, vamos a obtener el número del día de la semana actual según la fecha de nuestro sistema, teniendo en cuenta que tomamos como primer día de la semana el lunes (por lo tanto, primer_dia=2):

<script language="VBScript">
    Function MiDia()
       Dim MiFecha
       MiFecha=Now
       MiDia = Weekday(MiFecha, 2)
       MsgBox "El dia de la semana actual es " & MiDia
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiDia()">
</form>

que nos da:

* WeekdayName( dia_semana [, abreviatura, primer_dia] )

Función de fechas. Recibe como argumento obligado dia_semana, designación numérica para el día de la semana, cuyo valor depende de la configuración fijada por primer_día. Retorna una cadena que indica el día de la semana especificado.

Como argumentos opcionales puede recibir abreviatura, valor de tipo booleano que indica si el nombre del día de la semana se va a abreviar, con valor predeterminado False, lo que significa que si se omite el nombre del día de la semana no se abrevia, y primer_dia, valor numérico que indica el primer día de la semana, con los mismos valores posibles que el argumento de igual nombre de la función anterior.

En el siguiente ejemplo vamos a obtener el nombre del día actual en nuestro sistema:

<script language="VBScript">
    Function MiNombreDia()
       Dim MiFecha
       MiFecha=Now
       MiNombreDia = WeekdayName(5, False,  2)
       MsgBox "El dia de la semana actual es " & MiNombreDia
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiNombreDia()">
</form>

que nos da:

* Year( fecha )

Función de fechas. Recibe como argumento cualquier expresión que pueda representar una fecha, retornando un número entero que representa el año correspondiente a esa fecha. Si fecha contiene Null se retorna Null.

Como ejemplo, vamos a obtener al año actual:

<script language="VBScript">
    Function MiAnyo()
       Dim MiFecha
       MiFecha=Now
       MiAnyo = Year(MiFecha)
       MsgBox "El anyo actual es " & MiAnyo
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiAnyo()">
</form>

que nos da: