Дата первой недели, которая будет добавлена ​​в VBA

Question

Мне нужно автоматически добавить первую дату текущей недели в таблицу и текстовое поле формы vba. Может ли кто-нибудь помочь, если какие-либо функции доступны ??

Answer 1

monday = DateAdd("d", 1 - Weekday(Date, vbMonday), Date)

Answer 2

Я знаю, что вы сказали VBA, но вот как это можно сделать в SQL-модуле базы данных Access и работает «автономно», то есть не требует Access или VBA (конечно, логику можно перевести на VBA):

Неделя, начинающаяся в воскресенье: если запуск в воскресенье вернет текущую дату:

SELECT DATEADD('WW', DATEDIFF('WW', #1990-01-07 00:00:00#, NOW()), #1990-01-07 00:00:00#)

Неделя, начинающаяся с воскресенья: если запуск в воскресенье вернет предыдущее воскресенье:

SELECT DATEADD('D', (DATEDIFF('D', #1990-01-08 00:00:00#, NOW()) \ 7) * 7, #1990-01-07 00:00:00#)

Подсказка: 1990-01-07 00:00:00 - произвольная дата, известная как воскресенье.

Answer 3

Использование

DateAdd("d", Weekday(Date(), 3) * -1, Date())