Cálculo de fecha Vb

devuelve una variable (Fecha) que contiene la fecha con el intervalo de tiempo agregado.

Sintaxis

DateAdd (intervalo, número, fecha)

La sintaxis de la función DateAdd tiene los siguientes parámetros con nombre:

Descripción de la pieza

p>

El espaciado es necesario. La expresión de cadena es el intervalo de tiempo a agregar.

$ númeroLa expresión numérica necesaria es el número de intervalos de tiempo que se van a sumar. Su valor puede ser positivo (obteniendo una fecha futura) o negativo (obteniendo una fecha pasada).

La fecha es obligatoria. Variable (fecha) o texto que indica una fecha con un intervalo de tiempo agregado.

Crear

Los parámetros de intervalo tienen las siguientes configuraciones:

Descripción de la configuración

Año año

q nota

p>

m mes

ynúmero de días en un año

d día

cuántos días en una semana

semana

Horas

n minutos

segundos

Explicación

Puedes utilice la función DateAdd para sumar o restar el intervalo de tiempo especificado. Por ejemplo, puede utilizar DateAdd para calcular una fecha dentro de treinta días o para calcular una hora dentro de 45 minutos.

Para agregar un día a una fecha, use Días del año (Y), Días del día (D) o Días del año (W).

La función DateAdd no devuelve una fecha válida. En el siguiente ejemplo, se agrega el 31 de enero a un mes:

DateAdd(m, 1, 31-Jan-95)

En el ejemplo anterior, DateAdd devuelve 1995 28 de febrero de 1995, no el 30 de febrero de 1995. Si la fecha es 1996 65438 + 31 de octubre, dado que 1996 es un año bisiesto, el valor devuelto es el 29 de febrero de 1996.

Si la fecha calculada es anterior a 100 años (los años restados superan los años de la fecha), se producirá un error.

Si el número no es un valor entero largo, se utiliza el valor entero más cercano para el cálculo.

Tenga en cuenta que el formato del valor de retorno de DateAdd está determinado por la configuración del panel de control, no por el formato pasado al parámetro de fecha.

Ejemplo de la función DateAdd

Este ejemplo primero obtiene una fecha y luego usa la función DateAdd para mostrar las fechas de los próximos meses.

' Dim FirstDate As Date 'Declara la variable.

Tipo de intervalo atenuado como cadena

Número atenuado como número entero

Mensaje atenuado

Tipo de intervalo = "m"' "m " Especificar "meses " como el intervalo.

FirstDate = InputBox("Ingrese fecha")

Número = InputBox("Ingrese el número de meses a agregar")

Msg = "Nueva fecha: " & ampDateAdd(Tipo de intervalo, Número, Primera fecha)

Mensaje de MsgBox