' FirstDayOfWeek
' http://www.utteraccess.com/wiki/index.php/FirstDayOfWeek
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' rev  date                          brief descripton
' 1.1  2011-02-19                    else clause modified
'
Public Function fFirstDayOfWeek(rDate As Date, rbytWeekStartsOn As Byte) As Date
' Procedure: fFirstDayOfWeek
' Description: return the date of the first day of the week in which
'              the specified day occurs
'--
   Const cstrProcedure = "fFirstDayOfWeek"

   Dim intOffset As Integer
   Dim dtmResult As Date

   On Error GoTo HandleError

   intOffset = Weekday(rDate) - rbytWeekStartsOn

   If intOffset >= 0 Then
       dtmResult = rDate - intOffset
   Else
       'dtmResult = rDate + 7 - intOffset
       dtmResult = Date - intOffset - 7
   End If

   fFirstDayOfWeek = dtmResult

HandleExit:

   Exit Function

HandleError:
   'insert custom error handler here
   'ErrorHandle Err, Erl(), cstrModule & "." & cstrProcedure
   'Resume HandleExit
End Function