Lines Matching refs:hour
173 (nth arg '(nil "year" "mnth" "day" "hour" "minu"
176 calcFunc-day calcFunc-hour
376 ;;; an integer code, or (year month day hour minute second), corresponding
512 ;; math-fd-month, math-fd-day, math-fd-weekday, math-fd-hour,
522 (defvar math-fd-hour)
537 math-fd-hour math-fd-minute math-fd-second
575 math-fd-hour (nth 3 math-fd-dt)
663 (and math-fd-hour (format "%d" math-fd-hour)))
665 (and math-fd-hour (format "%02d" math-fd-hour)))
667 (and math-fd-hour (format "%2d" math-fd-hour)))
669 (and math-fd-hour (format "%d" (1+ (% (+ math-fd-hour 11) 12)))))
671 (and math-fd-hour (format "%02d" (1+ (% (+ math-fd-hour 11) 12)))))
673 (and math-fd-hour (format "%2d" (1+ (% (+ math-fd-hour 11) 12)))))
675 (and math-fd-hour (if (< math-fd-hour 12) "a" "p")))
677 (and math-fd-hour (if (< math-fd-hour 12) "A" "P")))
679 (and math-fd-hour (if (< math-fd-hour 12) "am" "pm")))
681 (and math-fd-hour (if (< math-fd-hour 12) "AM" "PM")))
683 (and math-fd-hour (if (< math-fd-hour 12) "a.m." "p.m.")))
685 (and math-fd-hour (if (< math-fd-hour 12) "A.M." "P.M.")))
726 (hour nil) (minute nil) (second nil) (bc-flag nil)
733 (setq hour (string-to-number (math-match-substring math-pd-str 1))
745 (if (> hour 23)
749 (if (and (= hour 12) (= minute 0) (eq second 0))
750 (if (eq ampm ?M) (setq hour 0))
753 (if (or (= hour 0) (> hour 12))
755 (if (eq (= ampm ?A) (= hour 12))
756 (setq hour (% (+ hour 12) 24)))))))
772 (or hour
775 (setq hour (if (= temp 1) 12 0) minute 0 second 0)))
864 hour minute second)))))
866 (defun math-parse-date-validate (year bigyear month day hour minute second)
875 (and hour
877 (if (or (< hour 0) (> hour 23))
884 (and hour (list hour minute second))))))
907 (hour nil) (minute nil) (second nil) (bc-flag nil))
941 hour (or (nth 3 num) hour)
955 hour (nth 3 num)
971 (setq hour (if (= hour 12) 0 hour)
974 (setq hour (if (= hour 12) 12 (% (+ hour 12) 24))
978 (setq hour (if (= hour 12) 0 hour)
981 (setq hour (if (= hour 12) 12 (% (+ hour 12) 24))
1038 (setq hour num))
1047 (and month day (or (not (or hour minute second))
1048 (and hour minute))
1055 hour minute second))
1093 (defun calcFunc-hour (date)
1114 (defun calcFunc-date (date &optional month day hour minute second)
1119 (if (and (eq (car-safe hour) 'hms) (not minute))
1120 (setq second (nth 3 hour)
1121 minute (nth 2 hour)
1122 hour (nth 1 hour)))
1123 (and (math-messy-integerp hour) (setq hour (math-trunc hour)))
1124 (and hour (not (integerp hour)) (math-reject-arg hour 'fixnump))
1134 (if hour
1135 (list 'date (math-dt-to-date (list date month day hour