| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Public Function MondayDate(Optional RelativeTo As Date) As Date \par '**************************************************** \par 'Returns the monday date of the current business week (if no parameter is passed) or the monday date \par 'the week relative to a specific date if a date is passed \par \par 'Examples: \par 'dim dtMondayThisWeek as Date \par 'dim dtMondayLastWeek as Date \par 'dtMondayThisWeek = MondayDate \par 'dtMondayLastWeek = MondayDate(Date - 7) \par \par 'Limitations: Cannot be used as a First Day of Business Week function Because it does not take into account \par 'holidays \par '********************************************************** \par If RelativeTo = #12:00:00 AM# Then RelativeTo = Date \par Select Case Weekday(RelativeTo) \par Case 1 ' Sunday \par MondayDate = RelativeTo - 6 \par Case 2 ' Monday \par MondayDate = RelativeTo \par Case 3 To 7 'Tuesday-Saturday \par MondayDate = RelativeTo - Weekday(RelativeTo) + 2 \par End Select \par \par End Function \par } |
Return the Monday Date for a Given Week |
India web developer web development India | India web development company India ecommerce web developer