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

Funciones del lenguaje (N - T).-

* Now

Función de fechas. No precisa argumentos, por lo que la llamada se realiza sin paréntesis, y retorna la fecha y hora actuales según la configuración de fecha y hora del sistema del equipo en que se ejecute (servidor web o cliente).

Ejemplo:

<script language="VBScript">
    Function Mifecha()
        Mifecha=Now
        MsgBox "La fecha de tu sistema es: " & Mifecha,, "Ejemplo de funcion Now"       
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="Mifecha()">
</form>

que nos da:

* Oct( numero)

Función de conversión de datos. Recibe como argumento un número decimal, una variable que lo contenga o una expresión numérica válida, retornando dicho número convertido en octal (hasta 11 caracteres).

Si numero no es ya un número entero, se redondea al número entero más cercano antes de evaluarse. Si recibe Null, retorna Null. Si recibe un valor vacío (Empty), retorna 0.

Se puede representar números octales directamente si precedemos los números del intervalo apropiado con &O. Por ejemplo, &O10 es la notación octal para el valor decimal 8.

Ejemplo:

<%

    Dim MiOctal

    MiOctal = Oct(8)

%>

con lo que MiOctal almacena el valor 10.

* Replace (cadena_madre, cadena_buscada, cadena_cambio, comienzo, veces, comparacion)

Función de cadenas. Su funcionalidad es buscar una subcadena dentro de una cadena madre y reemplazarla por otra. Sus argumentos son o pueden ser:

- cadena_madre: Obligatorio. Cadena, variable que la contenga o expresión de cadena válida, que va a ser la cadena madre en la que vamos a buscar coincidencias.

- cadena_buscada: Obligatorio. Cadena, variable que la contenga o expresión de cadena válida, que va a ser la subcadena que vamos a buscar dentro de la cadena madre.

- cadena_cambio: Obligatorio. Cadena, variable que la contenga o expresión de cadena válida, que va a ser la subcadena que vamos a cambiar por cadena2 dentro de la cadena madre.

- comienzo: Opcional. Posición dentro de cadena_madre desde donde se va a comenzar a buscar cadena_buscada. Si se omite, se supone 1. Se debe utilizar junto con veces.

- veces: Opcional. Número de sustituciones de subcadena que se va a realizar. Si se omite, el valor predeterminado es -1, que significa hacer todas las sustituciones posibles. Se debe utilizar junto con comienzo.

- comparacion: Opcional. Valor numérico que indica el tipo de comparación que se va a utilizar cuando se evalúen subcadenas. Si es 0 (valor por defecto) se realiza una comparación de tipo binario, mientras que si es 1 se realiza una comparación textual.

Valores de retorno:

Dependiendo de los resultados de la búsqueda, la función Replace puede devolver los siguientes valores:

si	devuelve
cadena es de longitud cero	cadena de longitud cero ("").
cadena es Null	un error.
cadena_buscada es de longitud cero	copia de cadena .
cadena_cambio es de longitud cero	copia de cadena con todas las apariciones de cadena_buscada eliminadas.
comienzo > Len(cadena)	cadena de longitud cero.
veces es 0	copia de cadena.

Ejemplo:

Vamos a buscar en la cadena "pitopitogorgorito" la subcadena "ito", y la vamos a cambiar por "ato":

<script language="VBScript">
    Dim MiCadena, MiSubcadena ,MiCambio
    Function MiBusca()
        MiCadena="pitopitogorgorito"
        MiSubCadena="ito"
        MiCambio="ato"
        MiBusca=Replace(MiCadena, MiSubcadena, MiCambio)
        MsgBox "La cadena resultante es: " & MiBusca,, "Ejemplo de funcion Replace"       
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiBusca()">
</form>

que podemos ver funcionando si pulsamos el siguiente botón:

* RGB( rojo, verde, azul )

Función de conversión de datos. Recibe como argumentos tres números entre 0 y 255, que representan respectivamente los valores componentes del rojo, verde y azul de un color, retornando un número entero que representa un valor de color RGB.

Un valor de color RGB especifica la intensidad relativa de rojo, verde y azul para hacer que se muestre un color específico.

Ejemplo:

<script language="VBScript">
    Function MiRGB()
        MiRGB=RGB(100,50,250)
        MsgBox "El valor RGB es: " & MiRGB,, "Ejemplo de funcion RGB"       
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiRGB()">
</form>

que nos da:

* Right( cadena, longitud )

Función de cadenas. Recibe como argumentos una cadena, variable que la contenga o expresión de cadena válida y un número, vable que lo contenga o expresión numérica válida, devolviendo una subcadena formada por el número de caracteres especificados por longitud desde la parte derecha de cadena.

Si cadena contiene Null, se retorna Null. Si longitud es 0, se retorna una cadena de longitud cero, "". Si longitud es mayor que el número de caracteres de cadena, se retorna ésta completa.

Ejemplo:

<script language="VBScript">
    Function MiRight()
        Dim MiCadena, MiLongitud, MiSubcadena       
        MiCadena=InputBox("Introduce una cadena", "Ejemplo función Right")
        MiLongitud=InputBox("Introduce la longitud de la subcadena", "Ejemplo función Right")
        MiSubcadena=Right(MiCadena, MiLongitud)   
        MsgBox ("La subcadena es: " & MiSubcadena)
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiRight()">
</form>

de donde obtenemos:

* Rnd ( [numero] )

Función numérica. No precisa argumentos obligatoriamente, retornando un número aleatorio menor que 1 pero mayor o igual que 0.

Posée un argumento opcional, numero, que va a definir cómo se va a generar el número aleatorio. Los valores posibles de numero y su resultado práctico son:

si número es	Rnd genera
menor que cero	el mismo número siempre, utilizando número como inicialización.
mayor que cero	el siguiente número aleatorio de la secuencia.
igual que cero	el número generado más recientemente.
no proporcionado	el siguiente número aleatorio de la secuencia.

Se entiende por inicialización (seed) el valor inicial utilizado para generar números pseudoaleatorios. Por ejemplo, la instrucción Randomize crea un número de inicialización utilizado por la función Rnd para crear secuencias de números pseudoaleatorios únicos. Para cualquier inicialización dada, se genera la misma secuencia de números ya que cada llamada sucesiva a la función Rnd utiliza el número anterior como inicialización para el siguiente número de la secuencia.

De esto se desprende que debemos hacer trabajar juntas a las funciones Rnd y Randomize, para tener la seguridad de la verdadera aleatoriedad de las secuencias obtenidas. Por lo tanto, antes de llamar a Rnd, deberemos usar la instrucción Randomize sin argumento para inicializar el generador de números aleatorios con una inicialización basada en el temporizador del sistema.

Para repetir secuencias de números aleatorios, deberemos llamar a Rnd con un argumento negativo inmediatamente antes de utilizar Randomize con un argumento numérico. Si utilizamos Randomize con el mismo valor que para número no se repetirá la secuencia anterior.

Ejemplo:

<script language="VBScript">
    Function MiAleatorio()
        Randomize
        MsgBox "Un numero aleatorio: " & Rnd,, "Ejemplo de funcion Rnd"       
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiAleatorio()">
</form>

que nos da:

A veces tenemos la necesidad de crear una serie de nzmeros enteros aleatorios que estén dentro de un intervalo determinado, y puesto que los nzmeros generados con la función Rnd están entre 0 y 1, una expresisn para conseguir lo que buscamos es:

MiNumero = Int((mayor - menor + 1) * Rnd + menor)

donde menor y mayor son respectivamente los límites inferior y supeirior del intervalo.

Como ejemplo, vamos a calcular números enteros aleatorios que estén en el intervalo (1,10):

<script language="VBScript">
    Function MiIntervalo()
        Randomize
        MiIntervalo=Int((10) * Rnd + 1)
        MsgBox "Aleatorio entre 1 y 10:  " & MiIntervalo,, "Ejemplo de funcion Rnd"       
    End Function
</script>
<form>
  <input type="button" value="pulsame" onClick="MiIntervalo()">
</form>

que nos da:

* Round( numero, decimales )

Función numérica. Recibe como argumento un número, variable que lo contenga o expresión numérica válida, devolviendo ese número con tantos decimales como especifiquemos en el argumento decimales. El argumento decimales es opcional, y si no se especifica obtendremos el número redondeado sin decimales, como entero.

Ejemplo:

<%

    Dim MiRedondeo, PI

    Pi = 3,1415926
    MiRedondeo = Round(PI, 2)

%>

que nos retorna MiRedondeo = 3,14

* RTrim( cadena )

Función de cadenas. Recibe como argumento una cadena, variable que la contenga o expresión de cadena válida, devolviendo la cadena sin los espacios en blanco que hubiera a la derecha de la misma. Si cadena contiene Null se retorna Null.

Esta función pertenece al mismo grupo que LTrim y Trim.

Ejemplo:

<%

    Dim MiCadena, MiResultado

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

%>

que nos devuelve MiResultado = "Hola Mundo".