【ExcelVBA】日付（Date）から年度を取得する方法

Sub sample1()

Dim TargetDate As Date

    '対象の日付をセット
    TargetDate = Range("A1")

    '年度を出力
    
        '月が3以下の場合
        If Month(TargetDate) <= 3 Then
              '今の年からマイナスに1する
              Range("A2") = Year(TargetDate) - 1
          Else
              '今の年を使用
              Range("A2") = Year(TargetDate)
        End If
    
    '年を出力
    Range("A3") = Year(TargetDate)
    
    '月を出力
    Range("A4") = Month(TargetDate)
    
    '日を出力
    Range("A5") = Day(TargetDate)

End Sub

Sub sample2()

Dim i As Integer

    '2行目～14行目まで繰り返し
    For i = 2 To 14
    
        '年度をB列に出力
            '月が3以下の場合
            If Month(Cells(i, 1)) <= 3 Then
                  '今の年からマイナスに1する
                  Cells(i, 2) = Year(Cells(i, 1)) - 1
              Else
                  '今の年を使用
                  Cells(i, 2) = Year(Cells(i, 1))
            End If
    
        '年をC列に出力
        Cells(i, 3) = Year(Cells(i, 1))
        
        '月をD列に出力
        Cells(i, 4) = Month(Cells(i, 1))
        
        '日をE列に出力
        Cells(i, 5) = Day(Cells(i, 1))
    
    Next

End Sub