月末日の取得について

解決

ぺけ 2004-10-18 16:48:37 No: 86096 IP: [192.*.*.*]

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

魔界の仮面弁士 2004-10-18 17:23:42 No: 86097 IP: [192.*.*.*]

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

ぺけ 2004-10-18 17:37:48 No: 86098 IP: [192.*.*.*]

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

魔界の仮面弁士 2004-10-18 17:48:33 No: 86099 IP: [192.*.*.*]

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

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

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

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