Polar Studio

DateDiff

Public Function DateDiff(ByVal Interval As String, ByVal Date_1 As Date, ByVal Date_2 As Date) As Long

Returns the difference (time passed) between to dates expressed in the specified interval.

Interval: The type of interval to use for the result. Use one of (case-insensitive): 'yyyy': year, 'q': quarter, 'm': month, 'y': day of year, 'd': day, 'w': weekday, 'ww': week of year, 'h': hour, 'n': minute, 's': second
Date_1: The start date.
Date_2: The end date.

Dim lStartDate As Date = #2000-01-01#
Dim lEndDate As Date = Now

SendDebug $"{DateDiff("yyyy", lStartDate, lEndDate)} years have passed since january 1, 2000"
SendDebug $"{DateDiff("m", lStartDate, lEndDate)} months have passed since january 1, 2000"
SendDebug $"{DateDiff("ww", lStartDate, lEndDate)} weeks have passed since january 1, 2000"
SendDebug $"{DateDiff("d", lStartDate, lEndDate)} days have passed since january 1, 2000"
SendDebug $"{DateDiff("h", lStartDate, lEndDate)} hours have passed since january 1, 2000"
SendDebug $"{DateDiff("n", lStartDate, lEndDate)} minutes have passed since january 1, 2000"
SendDebug $"{DateDiff("s", lStartDate, lEndDate)} seconds have passed since january 1, 2000"

DateDiff

See also:

Curious what we can do for you?