fechas
Puedes encontrar más información en la ayuda de VB, como estos ejemplos:
Este ejemplo utiliza la función DateDiff para mostrar el número de días entre una fecha dada y hoy.
Dim LaFecha As Date ' Declara las variables.
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj
Este ejemplo obtiene una fecha y, utilizando la función DateAdd, muestra una fecha que corresponde a un número especificado de meses en el futuro.
Dim PrimeraFecha As Date ' Declara las variables.
Dim TipoIntervalo As String
Dim Número As Integer
Dim Msj
TipoIntervalo = "m" ' "m" especifica meses como intervalo.
PrimeraFecha = InputBox("Escriba una fecha")
Número = InputBox("Escriba el número de meses a agregar")
Msj = "Nueva fecha: " & DateAdd(TipoIntervalo, Número, PrimeraFecha)
MsgBox Msj
Este ejemplo utiliza la función DateDiff para mostrar el número de días entre una fecha dada y hoy.
Dim LaFecha As Date ' Declara las variables.
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj
Este ejemplo obtiene una fecha y, utilizando la función DateAdd, muestra una fecha que corresponde a un número especificado de meses en el futuro.
Dim PrimeraFecha As Date ' Declara las variables.
Dim TipoIntervalo As String
Dim Número As Integer
Dim Msj
TipoIntervalo = "m" ' "m" especifica meses como intervalo.
PrimeraFecha = InputBox("Escriba una fecha")
Número = InputBox("Escriba el número de meses a agregar")
Msj = "Nueva fecha: " & DateAdd(TipoIntervalo, Número, PrimeraFecha)
MsgBox Msj