[mhc:02261] 国民の祝日 (was: 昭和の日)

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

白井です。ごぶさたです。

昭和の日、みどりの日だけじゃなくて、同時に

旧: 国民の祝日が日曜日と重なるときは次の月曜日が休み
新: 国民の祝日が日曜日と重なるときは、その日の後で、その日に最も
    近い国民の祝日で無い日が休み

となっているのですね。本日、会社の労働協約の改定を読むまで知りま
せんでした。

http://www8.cao.go.jp/chosei/shukujitsu/gaiyou.html

## 来年の 5月6日はおやすみだよ :-)

ということは、schedule.smaple.jp に「5月3日、5月4日が日曜日の年
の5月6日」の日を加えれば良いので

(let ((date5-3 (mhc-date-new 2007 5 3))
      (date5-4 (mhc-date-new 2007 5 4))
      (year 2007))
  (while (< year 2032)
    (insert (format "%04d-05-03: %s\n%04d-05-04: %s\n"
		    year
		    (mhc-date-digit-to-ww-japanese-string
		     (mhc-date-ww date5-3) 'long)
		    year
		    (mhc-date-digit-to-ww-japanese-string
		     (mhc-date-ww date5-4) 'long)))
    (setq year (1+ year))
    (setq date5-3 (mhc-date-yy++ date5-3))
    (setq date5-4 (mhc-date-yy++ date5-4))))

とか

(let ((date5-3 (mhc-date-new 2007 5 3))
      (date5-4 (mhc-date-new 2007 5 4))
      (year 2007))
  (while (< year 2032)
    (when (or (= (mhc-date-ww date5-3) 0)
	      (= (mhc-date-ww date5-4) 0))
      (insert (format "%04d0506 " year)))
    (setq year (1+ year))
    (setq date5-3 (mhc-date-yy++ date5-3))
    (setq date5-4 (mhc-date-yy++ date5-4))))

とかして導いた。

20080506 20090506 20140506 20150506 20200506 20250506 20260506 20310506 

を Dot.schedule.smaple.jp に加えておきました。

-- 
白井秀行＠MHC の関数忘れている ^^;;;