Code Golf - Word Clock

Question

Write a program which takes the current time of the system clock, rounds to the nearest minute (you may choose how to round halves) and displays it formatted as the following:

A quarter past one in the morning.
A quarter to two in the afternoon.
Two o'clock in the afternoon.
Twenty-five minutes to three in the morning.
Twenty-seven minutes to seven in the evening.
One minute past twelve in the afternoon.
Twelve o'clock noon.
Twelve o'clock midnight.

Rules:

• 12:01am to 11:59am is deemed as morning.
• 12:01pm to 5:59pm is deemed as afternoon.
• 6:00pm to 11:59pm is deemed as evening.
• 15 minutes past the hour must be expressed as A quarter past the hour
• 30 minutes past the hour must be expressed as Half past the hour
• 45 minutes past the hour must be expressed as A quarter to the upcoming hour
• On-the-hour times must be expressed as the hour o'clock, with the addition of noon and midnight being expressed with the addition of noon or midnight respectively.
• Other times in hh:01 to hh:29 must be expressed as (number of minutes) past the hour.
• Other times in hh:31 to hh:59 must be expressed as (number of minutes) to the upcoming hour.
• Twenty-one to twenty-nine must be hyphenated.
• The first letter of the output must be capitalised. The other letters must be lower-case.

It would be useful to provide a testing version of your code so that it can be tested without manipulating the system clock.

Answer 1

Python 2.7, 159 162 156 161

from datetime import*
n=datetime.now()
if n.hour()<12:
 t="morning"
elif n.hour()<18:
 t="afternoon"
else:
 t="evening"
print"%i in the %s."%(n.hour(),t)

Edit #1 - Added a period at the end of the output.

Edit #2 - Shortened the imports, lengthened code to correct syntax.

Answer 2

Mathematica 450

Date[] calls for the current date and time. [[{4,5}]] returns the hour and minutes

f[]:=f[Date[][[{4,5}]]];
f[{h_,m_}]:=Module[{p,w,s},
p@h1_:=Which[0<h<12," in the morning.",12<h<18," in the afternoon.",18<h<24, " in the evening."];
s[t_]:=WolframAlpha["spell "<>ToString@t,{{"Result",1},"Plaintext"}];
w=s[h~Mod~12]<>p@h;
Which[
m==0, Switch[h,12, "noon", 0|24,"midnight",_,s[h~Mod~12]<>p@h],
m==15,"a quarter past "<>w,
m==30,"half past "<>w,
m==45,"a quarter to "<>s[h~Mod~12+1]<>p@h,
m<30,s@m<>" minutes after "<>w,
m>29,s[60-m]<>" minutes before "<>s[h~Mod~12+1]<>p@h]]

Current Time

f[]

"ten minutes past three in the afternoon."

Specific times

f[{4, 45}]
f[{10, 30}]
f[{11, 0}]
f[{12, 0}]
f[{13, 15}]
f[{15, 0}]
f[{22, 17}]
f[{24, 0}]

"a quarter to five in the morning."
"half past ten in the morning."
"eleven in the morning."
"noon"
"a quarter past one in the afternoon."
"three in the afternoon."
"seventeen minutes past ten in the evening."
"midnight"