GetMountainDay(日付)

指定項目 内 容
 日付  山の日を取得する日付を指定します。

戻り値  山の日

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

        Dim w As New ChoiKits.Day

        MsgBox("日付は" & DateSerial(2020, 5, 31) & " です。" & vbCrLf &
               "この年の山の日は" & w.GetMountainDay(DateSerial(2020, 5, 31)) & "です。", , "山の日を取得する")

        MsgBox("日付は" & DateSerial(2021, 5, 31) & " です。" & vbCrLf &
               "この年の山の日は" & w.GetMountainDay(DateSerial(2021, 5, 31)) & "です。", , "山の日を取得する")

        MsgBox("日付は" & DateSerial(2022, 5, 31) & " です。" & vbCrLf &
               "この年の山の日は" & w.GetMountainDay(DateSerial(2022, 5, 31)) & "です。", , "山の日を取得する")

      

      

      

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

    Public Function GetMountainDay(ByVal wrk_day As Date) As Date

        '【山の日】を取得する

        '日付?

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

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

        If wrk_day.Year = 2020 Then
            Return DateSerial(wrk_day.Year, 8, 10)
        End If

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

        If wrk_day.Year = 2021 Then
            Return DateSerial(wrk_day.Year, 8, 8)
        End If

        '8月11日(2016〜)

        If wrk_day.Year >= 2016 Then
            Return DateSerial(wrk_day.Year, 8, 11)
        End If

        Return wrk_day

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