続・月の平日を数えるlisp ((lambda (oy om od ny nm nd) ;基点日付作成 (setq olddate (encode-universal-time 0 0 0 od om oy)) (setq newdate (encode-universal-time 0 0 0 nd nm ny)) ;初期値設定 (setq x od) (setq cnt 0) (setq cnt2 0) ;祝日取得 (s…