VBAで当月の１日を表示するにはどの様なコードを使えば宜しいのでしょうか

VBAでシートAのセルA1に当月の１日を表示させたく思います。

Sheets("A").Range("A1") = Date
を使用し、本日の日付を表示させることは判ったのですが、この日付に含まれる月の初日（１日）を表示させる方法をご存知でしたら教えて下さい。

宜しくお願い致します。

No.1 ベストアンサー 回答者： bluecampus 回答日時： 2009/05/07 17:39

年と月を取り出して、日を１固定で日付を作成する。

⇒DateSerial,Year,Month

Dim d As Date
d = Date ' 本日日付
Range("A1").Value = DateSerial(Year(d), Month(d), 1)

ちなみに、その月の最終日は来月の1から1日引く。⇒DateAdd

この回答へのお礼

早速試しました。
そして希望していた結果が得られました。
早々に回答をいただきまして、ありがとうございました。

お礼日時：2009/05/07 18:22

No.2 回答者： myRange 回答日時： 2009/05/07 17:49

本日

Sheets("A").Range("A1").Value = Date

初日
Sheets("A").Range("A2").Value = DateSerial(Year(Date), Month(Date), 1)

末日
Sheets("A").Range("A3").Value = DateSerial(Year(Date), Month(Date) + 1, 0)
　

この回答へのお礼

早速試しました。
そして希望していた結果が得られました。
早々に回答をいただきまして、ありがとうございました。

お礼日時：2009/05/07 18:19