IsHoliday(日付)

指定項目 内 容
 日付  判定する日付を指定します。

戻り値  祝日・休日名(日曜日は対象外)

名称 月日
元日  1月1日
成人の日  1月の第2月曜日
建国記念の日  2月11日
春分の日  3月19〜22日(※)
昭和の日  4月29日
憲法記念日  5月3日
みどりの日  5月4日
こどもの日  5月5日
海の日  7月の第3月曜日
海の日※  【2020年は7月23日】【2021年は7月22日】
山の日  8月11日【2020年は8月10日】
山の日※  【2020年は8月10日】【2021年は8月8日】
敬老の日  9月の第3月曜日
国民の休日  祝日と祝日に挟まれた平日
秋分の日  9月22〜24日(※)
スポーツの日  10月の第2月曜日
スポーツの日※  【2020年は7月24日】【2021年は7月23日】
文化の日  11月3日
勤労感謝の日  11月23日
天皇誕生日  2月23日(2020〜) 12月23日(〜2018)
即位の日  2019年05月01日
振替休日  前日が祝日で日曜日(※)
その他の休日  大喪の礼・結婚の儀・即位の儀(※)

        Dim w As New ChoiKits.Day
        Dim W_Day As Date

        W_Day = "2020/05/06"

        If w.IsHoliday(W_Day) <> "" Then
            MsgBox(W_Day & " は祝日・休日です。(" & w.IsHoliday(W_Day) & ")", , "祝日・休日か否か判定する")
        Else
            MsgBox(W_Day & " は祝日・休日ではありません。", , "祝日・休日か否か判定する")
        End If

      

      サンプルプログラムダウンロード

    Public Function IsHoliday(ByVal wrk_day As Date) As String

        '【祝日・休日】か否かを判定する

        '日付?

        If IsDate(wrk_day) = False Then
            Return ""
        End If

        '祝日法、昭和23年7月20日法律第178号

        If wrk_day.Year < 1948 Then
            Return ""
        End If

        '元日

        If IsNewYearDay(wrk_day) = True Then
            Return "元日"
        End If

        '成人の日

        If IsComingOfAgeDay(wrk_day) = True Then
            Return "成人の日"
        End If

        '建国記念日

        If IsNationalFoundationDay(wrk_day) = True Then
            Return "建国記念日"
        End If

        '春分の日

        If IsSpringEquinoxDay(wrk_day) = True Then
            Return "春分の日"
        End If

        '昭和の日

        If IsShowaDay(wrk_day) = True Then
            Return "昭和の日"
        End If

        '憲法記念日

        If IsConstitutionDay(wrk_day) = True Then
            Return "憲法記念日"
        End If

        'みどりの日

        If IsGreeneryDay(wrk_day) = True Then
            Return "みどりの日"
        End If

        'こどもの日

        If IsChildrenDay(wrk_day) = True Then
            Return "こどもの日"
        End If

        '海の日

        If IsOceanDay(wrk_day) = True Then
            Return "海の日"
        End If

        '山の日

        If IsMountainDay(wrk_day) = True Then
            Return "山の日"
        End If

        '敬老の日

        If IsRespectForAgedDay(wrk_day) = True Then
            Return "敬老の日"
        End If

        '秋分の日

        If IsAutumEquinoxDay(wrk_day) = True Then
            Return "秋分の日"
        End If

        'スポーツの日(体育の日)

        If IsSportsDay(wrk_day) = True And wrk_day.Year < 2020 Then
            Return "体育の日"
        End If

        If IsSportsDay(wrk_day) = True And wrk_day.Year >= 2020 Then
            Return "スポーツの日"
        End If

        '文化の日

        If IsCultureDay(wrk_day) = True Then
            Return "文化の日"
        End If

        '勤労感謝の日

        If IsLaborThanksgivingDay(wrk_day) = True Then
            Return "勤労感謝の日"
        End If

        '天皇誕生日

        If IsEmperorBirthDay(wrk_day) = True Then
            Return "天皇誕生日"
        End If

        '即位の日

        If IsAccessionDay(wrk_day) = True Then
            Return "即位の日"
        End If

        '国民の休日

        If IsNationalHoliday(wrk_day) = True Then
            Return "国民の休日"
        End If

        'その他の休日

        If IsOtherHoliDay(wrk_day) = True Then
            Return "その他の休日"
        End If

        '振替休日

        If IsSubstituteHoliday(wrk_day) = True Then
            Return "振替休日"
        End If

        Return ""

    End Function

 ChoiKits  
 Microsoft  
 ステートメント  
 オブジェクト  
 メソッド  
 プロパティ