blob: af8382c833c6b2ce93a6b5f6df519211953b2edb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (vcalendar datetime)
#:use-module (srfi srfi-19)
#:use-module (srfi srfi-19 util)
#:export (parse-datetime)
)
(define (parse-datetime dtime)
"Parse the given date[time] string into a date object."
(localize-date
(string->date
dtime
(case (string-length dtime)
((8) "~Y~m~d")
((15) "~Y~m~dT~H~M~S")
((16) "~Y~m~dT~H~M~S~z")))))
|
