如何设置日期？

Question

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

我需要1.10.2012
因此,对于任何日期,我需要将dt1设置为该特定日期的第一天.

Answer 1

您可以使用dateserial重建日期

例如

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