Hi Mirko,
Mirko <[email protected]> writes:
> Is there a public function that can accept a string such as "3/4/5" (US
> Format) and normalize it to [2005-03-04 Fri]?.
Here you go:
(defun mirko-timestamp-conversion (date-string)
(when (string-match "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)" date-string)
(let* ((time
(list 0 0 0
(string-to-number (match-string 2 date-string))
(string-to-number (match-string 1 date-string))
(+ (string-to-number (match-string 3 date-string)) 2000)))
(etime (apply 'encode-time time)))
(format-time-string "[%Y-%m-%d %a]" etime))))
(mirko-timestamp-conversion "3/4/5")
=> [2005-03-04 Fri.]
--
Bastien
