Module: DateTime in Category General VBA/VB6 : Date and Time from Total Visual SourceBook

' Example of modDateTime
'
' To use this example, create a new module and paste this code into it.
' Then run the procedure by putting the cursor in the procedure and pressing:
'    F5 to run it, or
'    F8 to step through it line-by-line (see the Debug menu for more options)

Private Sub Example_modDateTime()
  ' Comments: Examples of using the modDateTime module to calculate a wide range of date and time related functions in VBA and VB6.
  '           See results in the Immediate Window.

  Const cintAdd As Integer = 6

  Dim datTest1 As Date
  Dim datTest2 As Date
  Dim datTest3 As Date

  datTest1 = DateSerial(Year(Date), 12, 31)        ' Last day of this year
  datTest2 = DateSerial(Year(Date) + 4, 5, 12)     ' May 12 four years from now

  Debug.Print "Today", DayOfWeekName(Date)
  Debug.Print "Yesterday ", PriorDate(Date)
  Debug.Print "Tomorrow", NextDate(Date)
  Debug.Print "Previous weekday", PriorWeekday(Date)
  Debug.Print "Next weekday", NextWeekday(Date)
  Debug.Print "Last Sunday", PriorDOW(Date, 1)
  Debug.Print "Next Sunday", NextDOW(Date, 1)
  Debug.Print
  Debug.Print "First day of this week", FirstDayOfWeek(Date)
  Debug.Print "Last day of this week", LastDayOfWeek(Date)
  Debug.Print "First day of next week", FirstDayOfNextWeek(Date)
  Debug.Print "Last day of next week", LastDayOfNextWeek(Date)
  Debug.Print "First day of last week", FirstDayOfLastWeek(Date)
  Debug.Print "Last day of last week", LastDayOfLastWeek(Date)
  Debug.Print
  Debug.Print "First day of this month", MonthFirstDay(DatePart("m", Date), DatePart("yyyy", Date))
  Debug.Print "Last day of this month", MonthLastDay(DatePart("m", Date), DatePart("yyyy", Date))
  Debug.Print "First day of next month", MonthFirstDayNextMonth(Date)
  Debug.Print "Last day of next month", MonthLastDayNextMonth(Date)
  Debug.Print "First day of last month", MonthFirstDayLastMonth(Date)
  Debug.Print "Last day of last month", MonthLastDayLastMonth(Date)
  Debug.Print
  Debug.Print "First weekday of this month", MonthFirstWeekday(DatePart("m", Date), DatePart("yyyy", Date))
  Debug.Print "Last weekday of this month", MonthLastWeekday(DatePart("m", Date), DatePart("yyyy", Date))
  Debug.Print "2nd Sunday of this month", NthDayOfMonth(DatePart("m", Date), DatePart("yyyy", Date), 2, 1)
  Debug.Print "Last Sunday in this month", LastDayOfWeekInMonth(DatePart("m", Date), DatePart("yyyy", Date), 1)
  Debug.Print "First day of the quarter", QuarterFirstDay(Date)
  Debug.Print "Last day of the quarter", QuarterLastDay(Date)
  Debug.Print
  Debug.Print "Today plus 30 weekdays is ", AddWeekdays(Date, 30)
  Debug.Print cintAdd & " hours from now is ", AddHours(Now, cintAdd)
  Debug.Print cintAdd & " days from now is ", AddDays(Date, cintAdd)
  Debug.Print cintAdd & " weeks from now is ", AddWeeks(Date, cintAdd)
  Debug.Print cintAdd & " months from now is ", AddMonths(Date, cintAdd)
  Debug.Print cintAdd & " years from now is ", AddYears(Date, cintAdd)

  Debug.Print
  Debug.Print "Check for leap year:"
  Debug.Print "Days in February " & Year(Date), DaysInMonth(2, Year(Date))
  Debug.Print "Days in February " & Year(Date) + 1, DaysInMonth(2, Year(Date) + 1)
  Debug.Print "Days in February " & Year(Date) + 2, DaysInMonth(2, Year(Date) + 2)
  Debug.Print "Days in February " & Year(Date) + 3, DaysInMonth(2, Year(Date) + 3)
  Debug.Print

  Debug.Print "Seconds in one day:", DiffSeconds(datTest1, datTest1 + 1)
  Debug.Print "The difference in time between 1:00 AM and the now is: ", DiffTime(#1:00:00 AM#, Now, True)
  Debug.Print

  ' Set test date to two days from today at 2:01:30 AM
  datTest3 = (Date + 2) + #2:01:15 AM#
  Debug.Print "Full       minutes between today and " & datTest3, DiffMinutes(Date, datTest3)
  Debug.Print "Fractional minutes between today and " & datTest3, DiffMinutesFractional(Date, datTest3)
  Debug.Print "Full       days between today and " & datTest3, DiffDays(Date, datTest3)
  Debug.Print "Fractional days between today and " & datTest3, DiffDaysFractional(Date, datTest3)
  Debug.Print

  Debug.Print "Weekdays between today and " & datTest1, DiffWeekdays(Date, datTest1)
  Debug.Print "Weeks between " & datTest1 & " and " & datTest2, DiffWeeks(datTest1, datTest2)
  Debug.Print "Months between " & datTest1 & " and " & datTest2, DiffMonths(datTest1, datTest2)
  Debug.Print

  Debug.Print "2018 " & IIf(IsLeapYear(2018), "is", "isn't") & " a leap year."
  Debug.Print "2020 " & IIf(IsLeapYear(2020), "is", "isn't") & " a leap year."
  Debug.Print "Your randomly generated date, between 1950 and 2020: " & GetRandomDate(#1/1/1950#, #12/31/2020#)
  Debug.Print

  ' Example for GetDatePart()
  ' Return the specific quarter that a date occurs in.
  Debug.Print "Current Quarter: " & GetDatePart(Date, theQuarter)

  Debug.Print "If Jan. 1 is the start of Week 1, " & datTest1 & " is in week #" & WeekNumber(datTest1)
  Debug.Print "By accounting/ISO guidelines, " & datTest1 & " is in week #" & WeekNumberStandardized(datTest1)
  Debug.Print "Counting the full week of Jan. 1 as Week 1, " & datTest1 & " is in week #" & WeekNumberStartJan(datTest1)
  Debug.Print

  ' Show the difference between two dates in words: 3 Months, 27 Days, 21 Hours, 58 Minutes, 45 Seconds
  Debug.Print "Difference between " & datTest1 & " and " & datTest3, DiffDatesFormatted_CalculatedByCalendar(datTest1, datTest3, True)
  ' Show the difference between two dates in this format: Years:Months:Days:Hours:Minutes:Seconds
  Debug.Print "Difference between " & datTest1 & " and " & datTest3, DiffDatesFormatted_CalculatedByCalendar(datTest1, datTest3, False)
  ' Show shorter time difference
  Debug.Print "Difference between " & Date & " and " & datTest3, DiffDatesFormatted_CalculatedByCalendar(Date, datTest3, True)
  Debug.Print "Difference between " & Date & " and " & datTest3, DiffDatesFormatted_CalculatedByCalendar(Date, datTest3, False)
  Debug.Print

  ' Example for FormatAsYMDHMS()
  '     38959290 seconds = 1 year, 2 months, 25 days, 2 hours, 1 minute, 30 seconds
  '     38959290 = 31536000 + ((31536000/12) * 2) + (86400 * 25) + (3600 * 2) + 60 + 30
  '     1 Year = 365 days
  ' Show the difference between two dates in words or yy:mm:dd:hh:mm:ss format
  Debug.Print "38959290 Seconds is", DiffDatesFormatted_CalculatedBySecondsPerYear(38959290, numberOfSeconds, True)
  Debug.Print "38959290 Seconds is", DiffDatesFormatted_CalculatedBySecondsPerYear(38959290, numberOfSeconds, False)
  Debug.Print "1000 Minutes is", DiffDatesFormatted_CalculatedBySecondsPerYear(1000, numberOfMinutes, True)
  Debug.Print "1000 Minutes is", DiffDatesFormatted_CalculatedBySecondsPerYear(1000, numberOfMinutes, False)

End Sub

The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!

Additional Resources

• List of All Modules in Total Visual SourceBook
• List of All Code Categories in Total Visual SourceBook
• Sample Module Code from Total Visual SourceBook (Example of Date, Time and Age Calculations)