what function to use to normalize date to org format?

what function to use to normalize date to org format?

[Mirko]

Hello,

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]?.

I need it for a bit of helper code.

Thanks,

Mirko

Re: what function to use to normalize date to org format?

[Bastien]

Hi Mirko,

Mirko <mirko.vukovic@gmail.com> 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