Page 1 of 1
Get current month
Posted: Tue Dec 28, 2010 2:51 am
by Stiv
Hi all,
Sorry but I can't get current month
.
How can I do it?
Thanks,
bye
Re: Get current month
Posted: Tue Dec 28, 2010 3:30 am
by Duke
Stiv wrote:Hi all,
Sorry but I can't get current month
.
How can I do it?
Thanks,
bye
I'm thinking you're going to want at least two of these functions:
Code: Select all
multiple-value-bind
decode-universal-time
get-universal-time
if you don't know what they are.
Re: Get current month
Posted: Tue Dec 28, 2010 5:24 am
by Stiv
Thanks very much,
I've done so:
Code: Select all
(multiple-value-bind (s min b gg m a b2 b3 b4)
(decode-universal-time (get-universal-time))
(list m))
but it generates many style-warning, how can I improve it?
Thanks,
Bye
Re: Get current month
Posted: Tue Dec 28, 2010 7:02 am
by gugamilare
Try this:
Code: Select all
(multiple-value-bind (s min b gg m a b2 b3 b4)
(decode-universal-time (get-universal-time))
(declare (ignore s min b gg a b2 b3 b4))
(list m))
Re: Get current month
Posted: Tue Dec 28, 2010 7:45 am
by Stiv
Thanks, it works.
Re: Get current month
Posted: Tue Dec 28, 2010 7:00 pm
by nuntius
A 1-liner:
Code: Select all
(fifth (multiple-value-list (decode-universal-time (get-universal-time))))
Re: Get current month
Posted: Tue Dec 28, 2010 8:19 pm
by Warren Wilkinson
Another 1-liner =)
Code: Select all
(nth-value 4 (decode-universal-time (get-universal-time)))
Re: Get current month
Posted: Wed Dec 29, 2010 3:38 am
by Stiv
Thanks very much
