すいません、3月の曜日がズレる不具合が見つかりました。 43行目の IF Ｍ＞3 …のところを IF M＞＝3 …に訂正すればちゃんと動きます。