如何设置date？

Dim dt1 As Date dt1 = Date MsgBox dt1 ' works - 12.10.2012 Day(dt1) = 1 ' error: object required 

我需要1.10.2012
所以，对于任何date，我需要将dt1设置为特定date的第一天。

Answer 1

你可以使用dateserial重builddate

例如

 newDate = DateSerial(Year(dt1), Month(dt1), 1) 

Answer 2

你也可以直接扣除日子

 dt1 = dt1 - Day(dt1) + 1