Comentarios
Puede utilizar la función DateDiff para determinar el número de intervalos especificados que existen entre dos fechas. Por ejemplo, con DateDiff podría calcular el número de días entre dos fechas o el número de semanas entre hoy y el final del año.

Si desea saber el número de días entre date1 y date2, puede utilizar Día del año ("y") o Día ("d"). Cuando interval es Día de la semana ("w"), DateDiff devuelve el número de semanas entre las dos fechas. Si date1 es lunes, DateDiff contará el número de lunes hasta date2. En la cuenta incluirá date2, pero no date1. Si interval es Semana ("ww"), la función DateDiff devolverá el número de semanas entre las dos fechas. En este caso contará el número de domingos entre date1 y date2. DateDiff contará date2 si es domingo, pero no date1, aunque sea domingo.

Si date1 se refiere a un momento posterior en el tiempo a date2, la función DateDiff devolverá un número negativo.

El argumento firstdayofweek afecta a los cálculos que utilizan "w" y "ww" como símbolos de intervalo.

Si fecha1 o fecha2 es un literal de fecha, el año, si se especifica, pasará a ser una parte permanente de la fecha. Sin embargo, si fecha1 o fecha2 está comprendida entre comillas dobles ("") y se omite el año, se insertará el año en curso en el código cada vez que se evalúe la expresión fecha1 o fecha2. Así es posible escribir código que se pueda usar en años distintos.

Cuando compara el 31 de diciembre con el 1 de enero del año siguiente, DateDiff para un año ("yyyy") devolverá 1 aunque sólo haya pasado un día.

Arriba

DoEvents
Cede el control de la ejecución al sistema operativo, para que éste pueda procesar otros eventos.

Comentarios
La función DoEvents devuelve un tipo Integer que representa el número de formularios abiertos por una versión independiente de Visual Basic, como la de Visual Basic edición estándar. DoEvents devuelve 0 en el resto de las aplicaciones.

La función DoEvents pasa el control al sistema operativo. El control no se devuelve hasta que el sistema operativo haya terminado de procesar los eventos en cola y se hayan enviado todas las teclas de la cola SendKeys.

DoEvents es más útil para tareas sencillas como permitir que un usuario cancele un proceso después de que ha comenzado, por ejemplo una búsqueda de un archivo.

Precaución Cuando dé preferencia al procesador temporalmente dentro de un procedimiento de evento, asegúrese de que el procedimiento no se ejecute de nuevo desde una parte diferente del código antes de que devuelva la primera llamada. Esto podría causar resultados impredecibles. Además, no utilice la función DoEvents si existe la posibilidad de que otras aplicaciones interactúen con el procedimiento, de manera imprevista, durante el tiempo en que éste ha cedido el control.

Ejemplo de la función DoEvents
En este ejemplo se utiliza la instrucción DoEvents para ceder el control de la ejecución al sistema operativo una vez cada 1000 iteraciones del bucle. DoEvents devuelve el número de formularios de Visual Basic abiertos, sólo cuando la aplicación principal es Visual Basic.

' Crea una variable para mantener el número de
' formularios de Visual Basic cargados y visibles
Dim I, OpenForms
For I = 1 To 150000 ' Inicia el bucle.
If I Mod 1000 = 0 Then ' Si el bucle se ejecuta 1000 veces.
OpenForms = DoEvents ' Cede el control al sistema operativo.
End If
Next I ' Incrementa el contador del bucle.

Arriba

Format
Devuelve un tipo Variant (String) que contiene una expresión formateada de acuerdo a las instrucciones contenidas en una expresión de formato.

La sintaxis de la función Format consta de las siguientes partes:

Valores
El argumento primerdíadesemana tiene los mismos valores de FirstDatreOfWeek de DateDiff:

Vea: FirstWeekOfYear (Func. DateDiff)

Comentarios
Para dar formato a:

• Números: Utilice formatos numéricos con nombre predefinidos o cree formatos numéricos definidos por el usuario.
• Fechas y horas: Utilice formatos de fecha/hora con nombre predefinidos o cree formatos de fecha/hora definidos por el usuario.
• Números seriales de fecha y hora: Utilice formatos de fecha y hora o formatos numéricos.
• Cadenas: Cree sus propios formatos de cadena definidos por el usuario.

Ejemplo de la función Format
En este ejemplo se muestran varios usos de la función Format para dar formato a valores utilizando formatos definidos por el usuario y formatos con nombre. La verdadera salida formateada presentada por el sistema para el separador de fecha (/), de hora (:) y el literal AM/ PM depende de las configuraciones en ese momento. Cuando las horas y las fechas se vuelven a listar en el entorno de desarrollo, se utilizan los formatos abreviados de hora y de fecha de la configuración regional del código. Cuando son presentados por el código en ejecución, se utilizan los formatos abreviados de fecha y hora de la configuración regional del sistema, los cuales pueden diferir de la configuración regional del código. En este ejemplo se asume que es Inglés/Estados Unidos.

MiHora y MiFecha se presentan en el entorno de desarrollo utilizando configuraciones actuales de fecha corta y hora corta.

Dim MiHora, MiFecha, MiCadena
MiHora = #17:04:23#
MiFecha = #27 enero 1993#
' Devuelve la hora actual del sistema en el formato largo de hora definido por el sistema.
MiCadena = Format(Time, "Long Time")
' Devuelve la fecha actual del sistema en el formato largo de fecha definido por el sistema.
MiCadena = Format(Date, "Long Date")
MiCadena = Format(MiHora, "h:m:s") ' Devuelve "17:4:23".
MiCadena = Format(MiHora, "hh:mm:ss AMPM") ' Devuelve "05:04:23 PM".
MiCadena = Format(MiFecha, "dddd, d mmm aaaa")' Devuelve "Miércoles,
' 27 de Ene de 1993".
' Si no se suministra el formato, devuelve una cadena.
MiCadena = Format(23) ' Devuelve "23".
' Formatos definidos por el usuario.
MiCadena = Format(5459.4, "##,##0.00") ' Devuelve "5.459,40".
MiCadena = Format(334.9, "###0.00") ' Devuelve "334,90".
MiCadena = Format(5, "0.00%") ' Devuelve "500,00%".
MiCadena = Format("HOLA", "<") ' Devuelve "hola".
MiCadena = Format("Esto es", ">") ' Devuelve "ESTO ES".

Arriba