指定年月の最終日を取得する関数

質問

おせわになります。

現在VBでシステムを開発中なのですが、
年と月を指定してその月の最終日を取得するという
関数を探しています。

よろしくお願いします。

回答No.1

josyo_m

お疲れ様です。
そのような関数はあるかどうかは知りませんが、求めることは出来ます。
考え方は、その年月の次の月の先頭日（ｎ月１日）の前日は、その年月の末尾です。

（例

　　'// 求めたい年月
　　strDATE = "2002/02/21"

　　strDATE = DateAdd("m", 1, strDATE)　　'// 日付＋１月する
　　strDATE = Format$(strDATE, "YYYY/MM/") & "01"　　'// ＋１月した日付の先頭日
　　strDATE = DateAdd("y", -1, strDATE)　　'// 次の月の先頭日の前日がその月の最終日　※"y"は「年」ではなく「年間通算日」

（結果
　　strDATE = "2002/02/28"

間違っていたらごめんなさい。

お礼

早速のご返答ありがとうございました。

DateSerial(2001, 4 + 1, 1) - 1

以上のように求められるそうです。

ありがとうございました。