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

Question

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

Answer 1

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

Answer 2

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

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

Answer 3

Я знаю, что вы сказали, VBA, но вот как это можно сделать в Access движок базы данных SQL и работает «самостоятельная», т.е. не требующий доступ или 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 произвольная дата известно, воскресенье.