【Functionメモ】日付関係をまとめる

-----------------------------------------
-年だけ切り替え
-機能　　：指定された日付（datI） に指定した年（intY）に置き換えます。
-　　　　　　何を入れても固定年にしたい時に使います。
'-----------------------------------------
Function edtYear(datI As Date, intY As Integer) As Date

    intM = Month(datI)
    intD = Day(datI)
    
    edtYear = DateSerial(intY, intM, intD)

End Function

'-----------------------------------------
'関数名　：和暦取得
'機能　　：入力された西暦日付から和暦日付を返却する
'入力項目：西暦日付
'-----------------------------------------
Function 和暦取得(西暦日付 As Date) As String
    Select Case True
    Case 西暦日付 >= DateValue("2019/05/01")
        和暦取得 = "令和" & Year(西暦日付) - 2018
    Case 西暦日付 >= DateValue("1989/01/08")
        和暦取得 = "平成" & Year(西暦日付) - 1988
    Case 西暦日付 >= DateValue("1926/12/25")
        和暦取得 = "昭和" & Year(西暦日付) - 1925
    Case 西暦日付 >= DateValue("1912/07/30")
        和暦取得 = "大正" & Year(西暦日付) - 1911
    Case Else
        和暦取得 = "明治" & Year(西暦日付) - 1867
    End Select
    和暦取得 = 和暦取得 & "年" & Month(西暦日付) & "月" & Day(西暦日付) & "日"
End Function

'-----------------------------------------
'関数名　：月の第ｎ、ｘ曜日の日取得
'機能　　：指定された曜日と月の何番目かを指定して日付を取得する。
'入力項目：dt…基準となる日付。その月の日付を対象とする。
'　　　　：n…第ｎ週を指定する
'　　　　：x…曜日を指定する
'　　　　：1(vbSunday)日曜日
'　　　　：2(vbMonday)月曜日
'　　　　：3(vbTuesday)火曜日
'　　　　：4(vbWednesday)水曜日
'　　　　：5(vbThursday)木曜日
'　　　　：6(vbFriday)金曜日
'　　　　：7(vbSaturday)土曜日
'-----------------------------------------
Function 第nx曜日の日取得(dt As Date, n As Integer, x As Integer) As String
    Dim wk1d As Date        '---対象年月の１日計算用WK
    
    '---入力チェック
    If x < 1 Or x > 7 Then
        MsgBox ("[x]の指定に誤りがあります。x=[" & x & "]")
        End
    End If
    '---対象年月の１日を取得
    wk1d = DateSerial(Year(dt), Month(dt), 1)
    '---その後のパラメータで指定された曜日になるまで日を後ろにシフト
    Do Until Weekday(wk1d, vbSunday) = x
        '---日を後にシフト
        wk1d = DateAdd("d", 1, wk1d)
    Loop
    '---パラメータで指定された週分後ろにシフト
    第nx曜日の日取得 = DateAdd("d", 7 * (n - 1), wk1d)
End Function