如何设置日期？

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)

Answer 2

您也可以直接扣除日期

dt1 = dt1 - Day(dt1) + 1