表紙へ

VB.NET

月末を求める

１．日付から月末を求める例

Dim MyDate As Date = Now TextBox1.Text = DateSerial(MyDate.Year, MyDate.Month + 1, 1).AddDays(-1)

この例では システム日付(=Now)の月の月末を求めている。当然Nowの代わりに任意の日付を使うことができる。

　

２．年・月から月末を求める例

次の例は2003年2月の月末を求めているが少し分かりにくいので色をつけて強調してある。

TextBox1.Text = DateAdd("D", -1, DateSerial(2003, 2 + 1, 1))

メモ：月末の　日にち　だけを知りたい場合は、上記の例で取得した日付にDay関数を適用する。

　

３．年・月から月末の日にちを求める例

TextBox1.Text = Date.DaysInMonth(2003, 2)

この例では 2003年2月の月末の日付を求めている。 実行すると28が得られる。