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

2012年1月10日が必要です。
したがって、どの日付でも、dt1をその特定の日付の最初の日として設定する必要があります。

4

2 に答える 2

6

dateserialを使用して日付を再構築できます

例えば

newDate = DateSerial(Year(dt1), Month(dt1), 1)
于 2012-10-12T14:06:30.460 に答える
3

日数を直接差し引くこともできます

dt1 = dt1 - Day(dt1) + 1
于 2012-10-12T14:09:47.297 に答える