Рассмотрены примеры работы процедур с интервалами дат
Работа с датами
Итак - DATE. Зашел тут к коллеге по работе, нужна ему была выборка по дате, по месяцам перещелкивать. В хелпах эта функция указывается, но найти ее возможно только явно указав ее имя :-). Поэтому цитирую ее: DateAdd
В указанном ниже примере она прибавляет один месяц к значению поля. (-1, чтобы отнять один месяц)
Me![ИмяПоля] = DateAdd("m", 1, Me![ИмяПоля])
Процитируем функцию для определения начала и конца месяца. Например, надо создать в форме два поля и при открытии формы прописать
' Первый день текущего месяца Me!FirstDay = DateSerial(Year(Now()), Month(Now()), 1) 'Последний день текущего месяца Me!LastDay = DateSerial(Year(Now()), Month(Now()) + 1, 0)
Продолжаем разговор. Определение дат начала и конца прошедшей недели (если хотите текущую - прибавьте 7 в каждой строчке :))
Do While DayOfMonth <= Me!EndDay Select Case WeekDay(DayOfMonth) Case vbSaturday, vbSunday Counter = Counter - 1 End Select DayOfMonth = DayOfMonth + 1 Loop Me!CountOfDay = Counter End Sub