Function: calcFunc-unixtime

calcFunc-unixtime is an autoloaded and byte-compiled function defined in calc-forms.el.gz.

Signature

(calcFunc-unixtime DATE &optional ZONE)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-forms.el.gz
(defun calcFunc-unixtime (date &optional zone)
  (if (math-realp date)
      (progn
	(setq date (math-add math-unix-epoch (math-div date '(float 864 2))))
	(list 'date (math-sub date (math-div (calcFunc-tzone zone date)
					     '(float 864 2)))))
    (if (eq (car date) 'date)
	(math-add (nth 1 (math-date-parts (nth 1 date) math-unix-epoch))
		  (calcFunc-tzone zone date))
      (math-reject-arg date 'datep))))