Function: timezone-make-arpa-date

timezone-make-arpa-date is a byte-compiled function defined in timezone.el.gz.

Signature

(timezone-make-arpa-date YEAR MONTH DAY TIME &optional TIMEZONE)

Documentation

Make arpanet standard date string from YEAR, MONTH, DAY, and TIME.

Optional argument TIMEZONE specifies a time zone.

Source Code

;; Defined in /usr/src/emacs/lisp/timezone.el.gz
;;
;; Parsers and Constructors of Date and Time
;;

(defun timezone-make-arpa-date (year month day time &optional timezone)
  "Make arpanet standard date string from YEAR, MONTH, DAY, and TIME.
Optional argument TIMEZONE specifies a time zone."
  (let ((zone
	 (if (listp timezone)
	     (format-time-string "%z" 0 (or timezone 0))
	   timezone)))
    (format "%02d %s %04d %s %s"
	    day
	    (capitalize (car (rassq month timezone-months-assoc)))
	    year
	    time
	    zone)))