datetime - 将文本框文本设置为今天/明天/第二天/等。自动地？

Question

我是 VBA 编程的新手，但我现在想要做的是有一个每天更新的 PowerPoint 幻灯片。这是一个显示在我们大厅里的天气预报幻灯片，目前我每天进来都会手动更新 7 天预报。这意味着在我进来之前，它显示当前日期为昨天的日期，而 7 天预报是仍然在预测中显示昨天的日期。最终，我也想让它自动提取天气数据，但就这个问题的范围而言，我只是想弄清楚如何在文本框中显示一周中 7 天的日期。

基本上，顶部有一个标题:(例如，2010 年 6 月 30 日，星期三)

然后在列中设置的 7 天:(例如 6 月 30 日 7 月 1 日 7 月 2 日...)

我想如图所示将标题设置为当前日期，然后将下面的七个文本框设置为当天，然后是明天，然后是第二天......依此类推，直到第七天。

我将如何增加日期时间？谢谢!

Answer 1

如果您想以 1 天的步骤前进，您可以通过添加 DateTime 变量来增加它们:

Dim d As DateTime
d = Now()

d = d + 1 ''# => tomorrow

这是有效的，因为在内部，DateTime 表示为一个浮点数，逗号前为整日，逗号后为天数。 (因此，添加 0.5 将有效地增加 12 小时，但我不建议这样做。)

对于更复杂的操作，如添加月数或小时数，有 DateAdd() ( see MSDN )。

d = DateAdd("h", 12, d)  ''#=> 12 hours

您可以使用 DateAdd()“添加”负值， 也。