期首月と年月から年度を取得する


  (defun get-fiscal-year(beginning_of_month year month)
    (if (<= beginning_of_month month)
        year
      (- year 1)))