如何設置日期？

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

我需要1.10.2012
因此，對於任何日期，我需要將dt1設置爲特定日期的第一天。如何設置日期？

2012-10-12 Alegro

newDate = DateSerial（年（DT1），月（DT1），1） – user3357963

你可以使用dateserial重建日期

如

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

2012-10-12 14:06:30 user3357963

優秀。謝謝。 – Alegro

你也可以扣除天直接

dt1 = dt1 - Day(dt1) + 1

2012-10-12 14:09:47

謝謝，亞歷克斯。我會嘗試。 – Alegro

回答