Добрый день.

Ситуация следующая - ведется понедельный учет рабочего времени, но по разным контрактам конец недели может быть как субботой (американский стандарт), так и воскресеньем (европейский стандарт).

Пишу функции

getMonday()

и

getFriday()

, но что-то окончательно запутался.

Function getMonday(dtmDate As Date, strWeekEndDay As String) As Date
    getMonday = dtmDate - Weekday(dtmDate, IIf(strWeekEndDay = "Saturday", vbSaturday, vbSunday)) + IIf(strWeekEndDay = "Saturday", 3, 2)
End Function

Function getFriday(dtmDate As Date, strWeekEndDay As String) As Date
    getFriday = dtmDate - Weekday(dtmDate, IIf(strWeekEndDay = "Saturday", vbSaturday, vbSunday)) + IIf(strWeekEndDay = "Saturday", 7, 6)
End Function

Получается, что суббота и воскресенье неправильно обрабатываются - я на картинке отметил желтым, эти дни "слишком рано" переключаются.

Прошу любого совета. Пример базы вложу по просьбе.

Заранее благодарю.

http://www.sql.ru/forum/1224713/poluchit-ponedelnik-i-pyatnicu-dlya-luboy-daty