月末日の取得について

解決

ぺけ 2004-10-19 01:48:37 No: 86096

いつもお世話になっております。
VB.NETで、指定した月の月末日を取得したいのですが、
どうすればよろしいでしょうか？
どなたかご教授ください。よろしくお願いいたします。

魔界の仮面弁士 2004-10-19 02:23:42 No: 86097

方法は幾つかありますが、例えば、
Dim D As Date = Microsoft.VisualBasic.DateAndTime.DateSerial(年, 月 + 1, 0)
とか。

ぺけ 2004-10-19 02:37:48 No: 86098

魔界の仮面弁士さん、
早速のご回答ありがとうございます。
DateSerial関数を使用すると、取得することができました。
ありがとうございました。

魔界の仮面弁士 2004-10-19 02:48:33 No: 86099

別解。仕組みは一緒です。

Dim D1 As Date = Date.Today '今日の日付

Dim D2 As Date = D1.AddMonths(1)
D2 = D2.AddDays(-D2.Day)

上記では、今月の末日を取得しています。