要在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中完成它并且“独立”工作，即不需要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是一个已知为星期日的任意日期。