将文本框文本设置为今天/明天/下一天/等.自动？

Question

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

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

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

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

我如何增加DateTime？谢谢!

Answer 1

如果您想以1天为单位继续前进,可以通过添加它们来增加DateTime变量:

Dim d As DateTime
d = Now()

d = d + 1 ''# => tomorrow

这是有效的,因为在内部,DateTime表示为浮点数,逗号之前的整天和逗号之后的几天.(因此,添加0.5会有效增加12小时,但我不建议这样做.)

对于更复杂的操作,如添加月或小时,有DateAdd()(见MSDN).

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

您也可以"添加"负值DateAdd().