Return a Date X Number of Weeks Before or After a Given Date

Category:

Dates and Math

Type:

Snippets

Difficulty:

Beginning

Author:

Intelligent Solutions Inc.

Version Compatibility: Visual Basic 5

More information:

For example, you can use this code if you want to return the date that is one week from the current date. See the comments for a full explanation of usage.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function AdjustWeeks(FutureDate As Boolean, _
  NumberOfWeeks As Integer, Optional RelativeTo As Variant) _
  As Date

'***************************************
'PURPOSE: RETURNS A DATE X NUMBER OF WEEKS BEFORE OR AFTER
 'A GIVEN DATE

'PARAMETERS:

'FutureDate: True if you want a date in the future
'relative to the given date, false if you want a date in the past

'NumberOfWeeks: How Many Weeks in the Future or Past you want
'to add or subtract from the given date

'RelativeTo (Optional): The given date; defaults to Today

'EXAMPLE: returns date 1 week from today

'dim dDate as date
'dDate = AdjustWeeks(True, 1)
'***************************************
Dim dDate As Date
Dim iDirection As Integer

If IsMissing(RelativeTo) Then
    dDate = Format(Now, "Short Date")
ElseIf Not IsDate(RelativeTo) Then
    Err.Raise 20000, , "Date required"
    Exit Function
Else
    dDate = Format(CDate(RelativeTo), "Short Date")
End If

iDirection = IIf(FutureDate, 1, -1)

AdjustWeeks = DateAdd("ww", NumberOfWeeks * iDirection, dDate)

End Function