Function: htz:date-make-arpa

htz:date-make-arpa is a byte-compiled function defined in htz.el.

Signature

(htz:date-make-arpa 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 ~/.emacs.d/elpa/hyperbole-20260414.325/htz.el
;;; ************************************************************************
;;; Private functions
;;; ************************************************************************

(defun htz:date-make-arpa (year month day time &optional timezone)
  "Make arpanet standard date string from YEAR, MONTH, DAY, and TIME.
Optional argument TIMEZONE specifies a time zone."
  (format "%02d %s %02d %s%s"
	  day
	  (capitalize (car (rassq month htz:months-assoc)))
	  (- year (* (/ year 100) 100))	;1990 -> 90
	  time
	  (if timezone (concat " " timezone) "")))