趣味は車輪の再発明♪

月末日付を取得する - [ 日付・時刻・時間 / VBA ]


「小さな小さなサンプル&スニペット」
▲インデックスへ戻る▲
カテゴリ:「日付・時刻・時間」

月末の日付を取得するコードです。月初は必ず1日なので問題ありませんが、月末の日付は月によってバラバラです。また、うるう年の2月なども少しヤヤコシイです。でも、基本的には「次月の1日の前日」という考え方で計算できます。また、言語によっては、直接、月末日付を取得できるものもあるようです。

''
'' 2013年12月の最終日を取得する。
''
Dim dt As Date
dt = DateSerial(2013, 12 + 1, 0)

''
'' 与えられた日付の月末日付を返す関数。
'' パラメータ dt 元の日付
''
Function GetLastDayOfMonth(ByVal dt As Date) As Date
    GetLastDayOfMonth = DateSerial( _
    	Year(dt), Month(dt) + 1, 0)
End Function		

VBAではDateSerial関数を使います。次月の0日という考え方です。

カテゴリ「日付・時刻・時間」の他のエントリ:
| 前後の日付を計算する |



RSS Feed Widget
月末日付を取得する - [ 日付・時刻・時間 / VBA ] 」 (http://bicycle.life.coocan.jp/takamints/index.php/snippets/snippet/datetime/lastdayofmonth/vba)
by Koji Takami ( email: vzg03566@gmail.com, GitHub: takamin )