Function: org-small-year-to-year

org-small-year-to-year is a byte-compiled function defined in org.el.gz.

Signature

(org-small-year-to-year YEAR)

Documentation

Convert 2-digit years into 4-digit years.

YEAR is expanded into one of the 30 next years, if possible, or into a past one. Any year larger than 99 is returned unchanged.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-small-year-to-year (year)
  "Convert 2-digit years into 4-digit years.
YEAR is expanded into one of the 30 next years, if possible, or
into a past one.  Any year larger than 99 is returned unchanged."
  (if (>= year 100) year
    (let* ((current (string-to-number (format-time-string "%Y")))
	   (century (/ current 100))
	   (offset (- year (% current 100))))
      (cond ((> offset 30) (+ (* (1- century) 100) year))
	    ((> offset -70) (+ (* century 100) year))
	    (t (+ (* (1+ century) 100) year))))))