お客様と講座開催日程の連絡をすることがあるので、
あってもよいかなと。
(defun weekday (year month day) (nth (nth 6 (decode-time (encode-time 0 0 0 day month year))) '(日 月 火 水 木 金 土))) (defun string-to-weekday (yyyymmdd) (let* ((ymd (mapcar 'string-to-number (split-string yyyymmdd "/"))) (year (nth 0 ymd)) (month (nth 1 ymd)) (day (nth 2 ymd))) (weekday year month day)))