曜日出力

お客様と講座開催日程の連絡をすることがあるので、
あってもよいかなと。

(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)))