Get current month

[Stiv]

Hi all,

Sorry but I can't get current month .
How can I do it?

Thanks,
bye

[Duke]

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

Look them up if you don't know what they are.

[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

[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))

[Stiv]

Thanks, it works.

[nuntius]

A 1-liner:

Code: Select all

(fifth (multiple-value-list (decode-universal-time (get-universal-time))))

[Warren Wilkinson]

Another 1-liner =)

Code: Select all

(nth-value 4 (decode-universal-time (get-universal-time)))

[Stiv]

Thanks very much