(defun iphoto-dir-format-time-range-as-album-dir (range year month day)
(let ((time-min (decode-time (car range)))
(time-max (decode-time (cdr range))))
(defun iphoto-dir-format-time-range-as-album-dir (range year month day)
(let ((time-min (decode-time (car range)))
(time-max (decode-time (cdr range))))
(if (and (= (nth 3 time-min) day)
(= (nth 4 time-min) month)
(= (nth 5 time-min) year))
(if (and (= (nth 3 time-min) day)
(= (nth 4 time-min) month)
(= (nth 5 time-min) year))
(if (and (= (nth 3 time-max) day)
(= (nth 4 time-max) month)
(= (nth 5 time-max) year))
(if (and (= (nth 3 time-max) day)
(= (nth 4 time-max) month)
(= (nth 5 time-max) year))