要在 VBA 中添加的第一周日期答案

【问题标题】：First week date to be added in VBA要在 VBA 中添加的第一周日期
【发布时间】：2010-11-12 17:02:06
【问题描述】：

我需要将当前星期的第一个日期自动添加到表格和 vba 表单的文本框中。如果有任何功能可用，有人可以帮忙吗？？

【问题讨论】：

【解决方案1】：

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

【讨论】：

【解决方案2】：

使用

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

【讨论】：

尚未测试，但我想它会......它只会尝试添加 0 天 (0 * -1)
在星期一调用时，返回前一个星期一。
Weekday(Date(), 3) 返回 7 表示星期一
那么我的参考可能不正确。我正在使用这个techonthenet.com/excel/formulas/weekday.php
啊我明白了，我认为这是 Excel 函数，而不是 VBA 函数，请参阅techonthenet.com/access/functions/date/weekday.php

【解决方案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 是已知为星期日的任意日期。

【讨论】：