表紙へ

VB6

月末を求める

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

Dim MyDate As Date MyDate = Now Text1.Text = DateAdd("D", -1, DateSerial(Year(MyDate), Month(MyDate) + 1, 1))

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

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

　

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

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

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

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