Epoch functions

Dim EpochYears As Long = DateDiff(DateInterval.Year, Date.MinValue, Today)
Dim EpochQuarters As Long = DateDiff(DateInterval.Quarter, Date.MinValue, Today)
Dim EpochMonths As Long = DateDiff(DateInterval.Month, Date.MinValue, Today)
Dim EpochDays As Long = DateDiff(DateInterval.Day, Date.MinValue, Today)
Dim EpochHours As Long = DateDiff(DateInterval.Hour, Date.MinValue, Now)
Dim EpochMinutes As Long = DateDiff(DateInterval.Minute, Date.MinValue, Now)
Dim EpochSeconds As Long = DateDiff(DateInterval.Second, Date.MinValue, Now)