Working With Dates and Times

This is something I’ve been wanting to do for quite a while, that is, to create a page dedicated to working with Dates and Times.

I was doing a little more advanced Date/Time VBA programming and decided that now was as good a time as ever to start creating such a page.  So here it is.

This article will evolve with time, so come back from time to time.

Table of Contents

• • The Basics!
    • Get Current Date/Time
    • Build Date/Time Values
    • Extract Date/Time Components
    • Other(s)
      • Format() Function
      • FormatDateTime() Function
  • Let’s Have Some Fun!
    • Tomorrow
    • Yesterday
    • Last Day of the Week
    • First Day of the Week
    • Get Last Week’s Date
    • Get Next Week’s Date
    • Get the 1st of the Month
    • Get the Last of the Month
    • Determine if a Year is a Leap Year
    • Get the 1st day of the Year
    • Get the Last day of the year
    • Get the 1st Day of a Quarter
    • Get the Last Day of a Quarter
    • Get the Week Number
    • Convert a Time String Into Day(s) hh:mm:ss
    • Convert a Time String into Seconds
    • Convert Seconds into Day(s) hh:mm:ss
    • Convert Seconds into hh:mm:ss
    • Convert Seconds into mm:ss
    • Get the Nth Day in the Month
    • Convert Time into Seconds

The Basics!

Let’s start with the basics and simply examine the native functions typically available to us for working with Dates and Times.

Get Current Date/Time

Build Date/Time Values

Extract Date/Time Components

Calculations

Other(s)

Format() Function

Many more possibilities as you can build any desired output format you wish!

FormatDateTime() Function

Let’s Have Some Fun!

Now that we know the basic functions available to us for working with Dates and Time values, let’s start using them to actually do common tasks.

Tomorrow

The function below is for calculating the next day’s date. If no date is passed to the function from which to perform the calculation, today is used.

'? GetTomorrow
'   10/8/2024 8:00:00 AM 'Run on 10/7/2024 8:00:00 AM
'? GetTomorrow(#7/15/2024 8:00:00 AM#)
'   7/16/2024 8:00:00 AM
Public Function GetTomorrow(Optional dtStartDate As Date) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Now()
    GetTomorrow = DateAdd("d", 1, dtStartDate)
End Function

Yesterday

The function below is for calculating the previous day’s date. If no date is passed to the function from which to perform the calculation, today is used.

'? GetYesterday
'   10/6/2024 5:00:40 PM 'Run on 10/7/2024 5:00:40 PM
'
'? GetYesterday(#10/7/2024#)
'   10/6/2024
'
'? GetYesterday(#10/7/2024 8:00:00 AM#)
'   10/6/2024 8:00:00 AM
Public Function GetYesterday(Optional dtStartDate As Date) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Now()
    GetYesterday = DateAdd("d", -1, dtStartDate)
End Function

Last Day of the Week

The function below is for calculating the last day in the week for the specified date. If no date is passed to the function from which to perform the calculation, today is used.

Function GetWeekEndDate(Optional dtStartDate As Date, _
                        Optional lFirstDayOfWeek As VbDayOfWeek = vbSunday) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Date

    GetWeekEndDate = DateAdd("d", 7 - Weekday(dtStartDate, lFirstDayOfWeek), dtStartDate)
End Function

First Day of the Week

The function below is for calculating the first day in the week for the specified date. If no date is passed to the function from which to perform the calculation, today is used.

Function GetWeekStartDate(Optional dtStartDate As Date, _
                          Optional lFirstDayOfWeek As VbDayOfWeek = vbSunday) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Date
    GetWeekStartDate = DateAdd("d", -(Weekday(dtStartDate, lFirstDayOfWeek) - 1), dtStartDate)
End Function

Get Last Week’s Date

The function below is for calculating the date one week in the past (last week’s date) for the specified date. If no date is passed to the function from which to perform the calculation, today is used.

Public Function GetLastWeekDate(Optional dtStartDate As Date) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Date
    GetLastWeekDate = DateAdd("d", -7, dtStartDate)
End Function

Get Next Week’s Date

The function below is for calculating the date one week in the future (next week’s date) for the specified date. If no date is passed to the function from which to perform the calculation, today is used.

Public Function GetNextWeekDate(Optional dtStartDate As Date) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Date
    GetNextWeekDate = DateAdd("d", 7, dtStartDate)
End Function

Get the 1st of the Month

The function below is for calculating the 1 of the month for the specified date. If no date is passed to the function from which to perform the calculation, today is used.

Public Function GetFirstOfMonth(Optional dtStartDate As Date) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Date
    GetFirstOfMonth = DateSerial(year(dtStartDate), month(dtStartDate), 1)
End Function

and alternative version could be:

Public Function GetFirstOfMonth(Optional iYear As Integer, _
                                 Optional iMonth As Integer) As Date
    If iYear = 0 Then iYear = year(Date)
    If iMonth = 0 Then iMonth = month(Date)

    GetFirstOfMonth = DateSerial(iYear, iMonth, 1)
End Function

Get the Last of the Month

The function below is for calculating the last day of the month for the specified date. If no date is passed to the function from which to perform the calculation, today is used.

Public Function GetLastOfMonth(Optional dtStartDate As Date) As Date
    If dtStartDate = "12:00:00 AM" Then dtStartDate = Date
    GetLastOfMonth = DateSerial(year(dtStartDate), month(dtStartDate) + 1, 0)
End Function

and alternative version could be:

Public Function GetLastOfMonth(Optional iYear As Integer, _
                                Optional iMonth As Integer) As Date
    If iYear = 0 Then iYear = year(Date)
    If iMonth = 0 Then iMonth = month(Date)

    GetLastOfMonth = DateSerial(iYear, iMonth + 1, 0)
End Function

Determine if a Year is a Leap Year

Public Function IsLeapYear(iYear As Integer) As Boolean
    IsLeapYear = (iYear Mod 4 = 0 And iYear Mod 100 <> 0) Or (iYear Mod 400 = 0)
End Function

Get the 1st day of the Year

Public Function GetFirstDayOfYear(dtStartDate As Date) As Date
    GetFirstDayOfYear = DateSerial(year(dtStartDate), 1, 1)
End Function

Get the Last day of the year

Public Function GetLastDayOfYear(dtStartDate As Date) As Date
    GetLastDayOfYear = DateSerial(year(dtStartDate), 12, 31)
End Function

Get the 1st Day of a Quarter

Public Function GetFirstDayOfQuarter(dtStartDate As Date) As Date
    GetFirstDayOfQuarter = DateSerial(year(dtStartDate), 3 * ((month(dtStartDate) - 1) \ 3) + 1, 1)
End Function

Get the Last Day of a Quarter

Public Function GetLastDayOfQuarter(dtStartDate As Date) As Date
    GetLastDayOfQuarter = DateAdd("d", -1, DateSerial(year(dtStartDate), 3 * ((month(dtStartDate) - 1) \ 3) + 4, 1))
End Function

Get the Week Number

Public Function GetWeekNo(dtStartDate As Date) As Integer
    GetWeekNo = DatePart("ww", dtStartDate, vbSunday, vbFirstJan1)
End Function

Convert a Time String Into Day(s) hh:mm:ss

'Convert a time value into a 'days hh:mm:ss' string
'? ConvertTimeToDays("96:75:00")
'   4 days 01:15:00
'
'? ConvertTimeToDays("48:00:00")
'   2 days 00:00:00
'
'? ConvertTimeToDays("18:59:00")
'   18:59:00
Function ConvertTimeToDHMS(sTime As String) As String
    Dim lTotalSeconds         As Long
    Dim lDays                 As Long
    Dim lHours                As Long
    Dim lMinutes              As Long
    Dim lSeconds              As Long
    Dim sOutput               As String
    Dim aTimeComponents       As Variant

    ' Split the input string into hours, minutes, and seconds
    aTimeComponents = Split(sTime, ":")

    ' Calculate total seconds
    lTotalSeconds = CLng(aTimeComponents(0)) * 3600 + _
                    CLng(aTimeComponents(1)) * 60 + _
                    CLng(aTimeComponents(2))

    ' Calculate days, hours, minutes, and seconds
    lDays = lTotalSeconds \ 86400
    lHours = (lTotalSeconds Mod 86400) \ 3600
    lMinutes = (lTotalSeconds Mod 3600) \ 60
    lSeconds = lTotalSeconds Mod 60

    ' Format the result string
    If lDays > 0 Then sOutput = lDays & " days "
    sOutput = sOutput & Format(lHours, "00") & ":" & _
              Format(lMinutes, "00") & ":" & _
              Format(lSeconds, "00")

    ConvertTimeToDHMS = sOutput
End Function

Convert a Time String into Seconds

Function ConvertTimeToS(sTime As String) As Long
    Dim lTotalSeconds         As Long
    Dim aTimeComponents       As Variant

    ' Split the input string into hours, minutes, and seconds
    aTimeComponents = Split(sTime, ":")

    ' Calculate total seconds
    lTotalSeconds = CLng(aTimeComponents(0)) * 3600 + _
                    CLng(aTimeComponents(1)) * 60 + _
                    CLng(aTimeComponents(2))

    ConvertTimeToS = lTotalSeconds
End Function

Convert Seconds into Day(s) hh:mm:ss

Function ConvertSecondsToDHMS(lTotalSeconds As Long) As String
    Dim lDays                 As Long
    Dim lHours                As Long
    Dim lMinutes              As Long
    Dim lSeconds              As Long
    Dim sOutput               As String

    lDays = lTotalSeconds \ 86400
    lHours = (lTotalSeconds Mod 86400) \ 3600
    lMinutes = (lTotalSeconds Mod 3600) \ 60
    lSeconds = lTotalSeconds Mod 60

    If lDays > 0 Then sOutput = lDays & " days "
    sOutput = sOutput & Format(lHours, "00") & ":" & _
              Format(lMinutes, "00") & ":" & _
              Format(lSeconds, "00")

    ConvertSecondsToDHMS = sOutput
End Function

Convert Seconds into hh:mm:ss

Function ConvertSecondsToHMS(lTotalSeconds As Long) As String
    Dim lHours                As Long
    Dim lMinutes              As Long
    Dim lSeconds              As Long

    lHours = lTotalSeconds \ 3600
    lMinutes = (lTotalSeconds Mod 3600) \ 60
    lSeconds = lTotalSeconds Mod 60

    ConvertSecondsToHMS = Format(lHours, "00") & ":" & _
                          Format(lMinutes, "00") & ":" & _
                          Format(lSeconds, "00")
End Function

Convert Seconds into mm:ss

Function ConvertSecondsToMS(lTotalSeconds As Long) As String
    Dim lMinutes              As Long
    Dim lSeconds              As Long

    lMinutes = lTotalSeconds \ 60
    lSeconds = lTotalSeconds Mod 60

    ConvertSecondsToMS = Format(lMinutes, "00") & ":" & Format(lSeconds, "00")
End Function

Get the Nth Day in the Month

'? GetNthDayOfMonth(2024, 10,vbMonday, 1)
'   10/7/2024
'
'? GetNthDayOfMonth(2024, 10,vbMonday, 3)
'   10/21/2024
'
'? GetNthDayOfMonth(2024, 11, vbwednesday, 3)
'   11/20/2024
Function GetNthDayOfMonth(iTargetYear As Integer, _
                          iTargetMonth As Integer, _
                          iTargetDayOfWeek As VbDayOfWeek, _
                          iNthOccurrence As Integer) As Date
    Dim dtStartMonth          As Date
    Dim dtDate                As Date
    Dim iFirstOccurrenceDay   As Integer

    ' Validate inputs
    If iTargetMonth < 1 Or iTargetMonth > 12 Then
        Err.Raise 5, , "Invalid month. Must be between 1 and 12."
    End If

    If iNthOccurrence < 1 Or iNthOccurrence > 6 Then    'never be more than 5 occurences in a month
        Err.Raise 5, , "Invalid occurrence. Must be between 1 and 5."
    End If

    ' Get the first day of the specified month
    dtStartMonth = DateSerial(iTargetYear, iTargetMonth, 1)

    ' Calculate the first occurrence of the specified day in the month
    iFirstOccurrenceDay = iTargetDayOfWeek - Weekday(dtStartMonth, vbSunday) + 1
    If iFirstOccurrenceDay <= 0 Then
        iFirstOccurrenceDay = iFirstOccurrenceDay + 7
    End If

    ' Calculate the result date
    dtDate = DateSerial(iTargetYear, iTargetMonth, iFirstOccurrenceDay + (iNthOccurrence - 1) * 7)

    ' Check if the result is still in the specified month
    If month(dtDate) <> iTargetMonth Then
        Err.Raise 5, , "The specified occurrence does not exist in this month."
    End If

    GetNthDayOfMonth = dtDate
End Function

Convert Time into Seconds

'?TimeToSeconds(#1:01:30 PM#)
'   46890
'
'? TimeToSeconds(#13:01:30#)
'   46890
'
'?TimeToSeconds(#1:01:30#)
'   3690
Function TimeToSeconds(TimeValue As Date) As Long
    TimeToSeconds = Hour(TimeValue) * 3600 + Minute(TimeValue) * 60 + Second(TimeValue)
End Function