getdatestring.lisp

(defun universal-time-to-timestamp (universal-time)
    "universal-time convert to unix timestamp"
    (-
        universal-time
        (encode-universal-time 0 0 0 1 1 1970 0)))
(defun get-timestamp (&optional (universal-time (get-universal-time)))
    "return unix timestamp"
    (universal-time-to-timestamp universal-time))
(defun universal-time-from-timestamp (timestamp)
    "unix timestamp convert to universal-time"
    (+
        (encode-universal-time 0 0 0 1 1 1970 0)
        timestamp))
(defun timestamp-to-string (timestamp)
    "return yyyymmddhhmiss"
    (multiple-value-bind 
        (second min hour day month year) 
        (decode-universal-time (universal-time-from-timestamp timestamp) -8)
		(format nil "~4,'0d~@{~2,'0d~}" year month day hour min second)))		
(defmacro get-today-date-string ()
    "return yyyymmddhhmiss"
	'(timestamp-to-string (get-timestamp (get-universal-time))))
(defun todaydate-string ()
	(multiple-value-bind (second min hour day month year) (decode-universal-time (get-universal-time))
		(format nil "~4,'0d~@{~2,'0d~}" year month day)))
(defun todaytime-string ()
	(multiple-value-bind (second min hour day month year) (decode-universal-time (get-universal-time))
		(format nil "~@{~2,'0d~}" hour min second)))
(defun todaydatetime-string ()
	(multiple-value-bind (second min hour day month year) (decode-universal-time (get-universal-time))
		(format nil "~4,'0d~@{~2,'0d~}" year month day hour min second)))
(defun offset-date (universal-time n-day)
	(multiple-value-bind (second min hour day month year) (decode-universal-time (+ universal-time (* n-day 86400)))
		(format nil "~4,'0d~@{~2,'0d~}" year month day)))