日付を年度に変換する関数。(年度開始月が4月の場合)
┌──────────────────────────────────────┐
│Public Function 年度変換(ByVal 日付 As Variant) As Long                     │
│    If IsDate(日付) Then                                                    │
│        年度変換 = IIf(Month(日付) < 4, Year(日付) - 1, Year(日付))         │
│    Else                                                                    │
│        年度変換 = 0                                                        │
│    End If                                                                  │
│End Function                                                                │
└──────────────────────────────────────┘
日付じゃないもの(空欄も含む)が入力された場合は、「0」年度を返す。