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

Funciones del lenguaje (G-H).-

* GetLocate( )

Función de configuración. No presisa ningún argumento,devolviendo el valor del Id. de configuración regional actual.

La configuración regional es un conjunto de información de preferencias del usuario que incluye su idioma, país y convenciones culturales. La configuración regional determina cosas como la apariencia del teclado, el orden de clasificacisn alfabética, así como los formatos de fecha, hora, número y moneda.

Por lo tanto, si corremos esta función en el servidor web (como código ASP), obtendremos la configuración regional de éste, mientras que si lo ejecutamos en local obtendremos la configuración regional de cada usuario.

El valor de retorno de la función puede ser cualquiera de los valores de 32 bits que figuran en esta ventana.

Ejemplo:

<%

    Dim MiConfiguracion

    MiConfiguracion = GetLocate

%>

donde no es necesario incluir los paréntesis en la llamada a la función, ya que ésta no precisa argumentos.

Esta función trabaja conjuntamente con SetLocate, y es de uso un poco complicado. Cuando estudiemos esta otra función veremos un ejemplo más complejo y definido.

* GetObject( [ruta, clase])

Función de referencias. Precisa una de los dos argumentos que explicamos abajo, y retorna una referencia a un objeto de automatización desde un archivo.

Un objeto de automatización es un objeto que se expone a otras aplicaciones o herramientas de programación a través de interfaces de automatización.

Precisa recibir uno de los dos siguientes argumentos: "ruta", cadena que define la ruta de acceso y nombre completos del archivo que contiene el objeto que se va a recuperar. Si se omite, se requiere "clase", que define la clase del objeto, siendo ésta la definición formal de objeto, que actúa como la plantilla para la que se crea una instancia de un objeto en tiempo de ejecución. La clase define las propiedades del objeto y los métodos utilizados para controlar el comportamiento del objeto, y precisa la sintaxis nombreAplicación.tipoObjeto

Se puede usar la función GetObject para tener acceso a un objeto de automatización desde un archivo y asignar el objeto a una variable de objeto utilizando la instrucción Set.

Ejemplo:

<%

    Dim MiObjeto

    SetMiObjeto = GetObject( "C:\DIB\DIBUJO.CAD" )

%>

con lo que la aplicación asociada con la ruta especificada se inicia y se activa el objeto en el archivo especificado.

* GetRef( procedimiento )

Función de referencias. Se usa conjuntamente con la instrucción Set, de la forma siguiente:

Set objeto.evento = GetRef( procedimiento)

donde:

- objeto: argumento requerido, que define el nombre del objeto con el que se asocia el evento.

- evento: argumento requerido, que define el nombre del evento con el que se va a enlazar la función.

- procedimiento: argumento requerido, que define el nombre del procedimiento Sub o Function que se va a asociar con el evento.

De esta forma, la función GetRef nos permite conectar un procedimiento de VBScript (Function o Sub) a cualquier evento de variable en nuestras páginas. Por ejemplo, podemos controlar el evento onClick sobre un botón, lanzando mediante él una función definida:

<form name="form1">
  <input type="button" name="boton" value="mensaje">
</form>

<script language="VBScript">

    Function FuncionGetRef()
        Dim MiTexto
        MiTexto = "Bienvenidos a HTMLWeb"
        MsgBox MiTexto
    End Function

    Set form1.boton.Onclick = GetRef("FuncionGetRef")

</script>

cuyo resultado podemos ver en la siguiente ventana.

* Hex( numero / variable / expresion )

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 el mismo número pasado a formato hexadecimal. Si el argumento recibido no resulta en un número entero, lo redondea al número entero más próximo antes de evaluarse.

Si recibe como argumento Null, devuelve Null. Si no recibe nada (vacío = Empty), retorna 0. Y si recibe un número retorna hasta 8 caracteres hexadecimales.

Puede representar números hexadecimales directamente si precede los números del intervalo apropiado con &H. Por ejemplo, &H10 representa el valor decimal 16 en la notación hexadecimal.

Veamos un ejemplo:

<%

   Dim MiHex

   MiHex =Hex(10)

%>

con lo que tendremos A como valor almacenado en MiHex.

* Hour( hora / expresion )

Función de horas. Recibe como argumento una hora en formato hh:mm:ss o cualquier expresión que pueda representar una hora, retornando un número entre 0 y 23 que representa la hora que le corresponde del día.

Ejemplo: 

<script language="VBScript">

    Dim MiTiempo, MiHora

    MiTiempo = Now
    MiHora = Hour(MiTiempo)

    MsgBox MiHora

</script>

que nos saca una caja de mensaje con el número de la hora actual del sistema del usuario.