Leete el tutorial que te servira:
Ejemplo
En este ejemplo se utiliza la función DateDiff para mostrar el número de días entre una fecha dada y la fecha actual.
Dim FirstDate, Msg As String ' Declare variables.
Dim SecondDate As Date
FirstDate = InputBox("Enter a date")
SecondDate = CDate(FirstDate)
Msg = "Days from today: " & DateDiff(DateInterval.Day, Now, SecondDate)
MsgBox (Msg)
El argumento Interval puede tener uno de los siguientes valores:
Valor de enumeración Cadena Unidad de diferencia temporal
DateInterval.Day
d Día
DateInterval.DayOfYear
y Día
DateInterval.Hour
h Hora
DateInterval.Minute n Minuto
DateInterval.Month
m Mes
DateInterval.Quarter
q Trimestre
DateInterval.Second
s Segundo
DateInterval.Weekday w Semana
DateInterval.WeekOfYear
ww Semana del calendario
DateInterval.Year
yyyy Año