Function: solar-time-string

solar-time-string is a byte-compiled function defined in solar.el.gz.

Signature

(solar-time-string TIME TIME-ZONE)

Documentation

Printable form for decimal fraction TIME in TIME-ZONE.

Format used is given by calendar-time-display-form.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/solar.el.gz
(defun solar-time-string (time time-zone)
  "Printable form for decimal fraction TIME in TIME-ZONE.
Format used is given by `calendar-time-display-form'."
  (let* ((time (round (* 60 time)))
         (24-hours (/ time 60)))
    (calendar-dlet
        ((time-zone time-zone)
         (minutes (format "%02d" (% time 60)))
         (12-hours (format "%d" (1+ (% (+ 24-hours 11) 12))))
         (am-pm (if (>= 24-hours 12) "pm" "am"))
         (24-hours (format "%02d" 24-hours)))
      (mapconcat #'eval calendar-time-display-form ""))))