DateSerial関数、Year関数、Month関数

DateSerial　／　Year　／　Month

ある日付を基に、その月の末日を調べるには、DateSerial関数とYear関数、Month関数を組み合わせます。「翌月1日」の日付データ（シリアル値）を作り、そこから1日分を引けば、翌月1日の前日＝当月末が求められます。

　Year関数とMonth関数はそれぞれ、指定した日付の年の数値と月の数値を返す関数です。これらを使って求めた年月の数値のうち、月の数値に「1」を加え、日の数値を「1」とすれば、DateSerial関数で「翌月1日」の日付データを生成できます。この日付から「1」を引けば、その前日である当月末となります。

---

当月末の日付を求める

Sub Sample()

Dim y As Long, m As Long

With Range(“B3”)

y = Year(.Value)

m = Month(.Value)

End With

MsgBox DateSerial(y, m + 1, 1) – 1 & “が月末日です。”

End Sub

 

実行結果

 

IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp　ドメイン取るならお名前.com