IsMountainDay(日付)

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

戻り値 内 容
真(true)  山の日である。
偽(False)  山の日でない。

実施年 月日
 2016〜  8月11日
 2020  8月10日
 2021  8月8日

        Dim w As New ChoiKits.Day
        Dim W_Day As Date

        W_Day = "2020/8/10"

        If w.IsMountainDay(W_Day) = True Then
            MsgBox(W_Day & " は山の日です。", , "山の日か否か判定する")
        Else
            MsgBox(W_Day & " は山の日ではありません。", , "山の日か否か判定する")
        End If

        W_Day = "2020/8/11"

        If w.IsMountainDay(W_Day) = True Then
            MsgBox(W_Day & " は山の日です。", , "山の日か否か判定する")
        Else
            MsgBox(W_Day & " は山の日ではありません。", , "山の日か否か判定する")
        End If

        W_Day = "2021/8/8"

        If w.IsMountainDay(W_Day) = True Then
            MsgBox(W_Day & " は山の日です。", , "山の日か否か判定する")
        Else
            MsgBox(W_Day & " は山の日ではありません。", , "山の日か否か判定する")
        End If

        W_Day = "2021/8/11"

        If w.IsMountainDay(W_Day) = True Then
            MsgBox(W_Day & " は山の日です。", , "山の日か否か判定する")
        Else
            MsgBox(W_Day & " は山の日ではありません。", , "山の日か否か判定する")
        End If

        W_Day = "2022/8/11"

        If w.IsMountainDay(W_Day) = True Then
            MsgBox(W_Day & " は山の日です。", , "山の日か否か判定する")
        Else
            MsgBox(W_Day & " は山の日ではありません。", , "山の日か否か判定する")
        End If

      

      

      

      

      

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

   Public Function IsMountainDay(ByVal wrk_day As Date) As Boolean

        '【山の日】か否かを判定する (2016〜)

        '日付?

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

        '2020年 の【山の日】は8月10日である

        If wrk_day.Year = 2020 _
            And wrk_day.Month = 8 And wrk_day.Day = 10 Then
            Return True
        End If

        '2020年 の【山の日】は8月11日ではない

        If wrk_day.Year = 2020 _
            And wrk_day.Month = 8 And wrk_day.Day = 11 Then
            Return False
        End If

        '2021年 の【山の日】は8月8日である

        If wrk_day.Year = 2021 _
            And wrk_day.Month = 8 And wrk_day.Day = 8 Then
            Return True
        End If

        '2021年 の【山の日】は8月11日ではない

        If wrk_day.Year = 2021 _
            And wrk_day.Month = 8 And wrk_day.Day = 11 Then
            Return False
        End If

        If wrk_day.Year >= 2016 _
            And wrk_day.Month = 8 And wrk_day.Day = 11 Then
            Return True
        End If

        Return False

    End Function

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