月の末日を取得 : Excel(エクセル)

月の末日を取得するには、日程表作成などでよく使います。
下記のコードでは、28日から1づつ加算し、1日になれば-1し末日を調べています。翌月の1日から-1し月末を求める方法もあります。例えば2月末日ならば、3月31日 - 1 とする方法です。しかし、この場合、月を+1しないといけないので前処理が必要です。

Excel Tipsメニューに戻る

スポンサーリンク






コマンドボタン クリックイベントで末日を取得する

Private Sub CommandButton1_Click()
    CommandButton1.Caption = MonthLastDay(2006, 10)
End Sub

月の末日を取得する標準モジュールコード

Public Function MonthLastDay(yy As Integer, mm As Integer) As Integer
    Dim i As Integer
    Dim tdate As Date
    
    tdate = Format(yy & "/" & mm & "/1", "yyyy/mm/dd")
    i = 28
    Do
        i = i + 1
    Loop Until Day(tdate + i - 1) = 1
    MonthLastDay = i - 1
End Function

スポンサーリンク



月の末日を取得する実行前

実行前

月の末日を取得する実行結果

日付が表示された

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved