Code Golf - Word Clock
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&lt;h&lt;12,&quot; in the morning.&quot;,12&lt;h&lt;18,&quot; in the afternoon.&quot;,18&lt;h&lt;24, &quot; in the evening.&quot;];
s[t_]:=WolframAlpha[&quot;spell &quot;&lt;&gt;ToString@t,{{&quot;Result&quot;,1},&quot;Plaintext&quot;}];
w=s[h~Mod~12]&lt;&gt;p@h;
Which[
m==0, Switch[h,12, &quot;noon&quot;, 0|24,&quot;midnight&quot;,_,s[h~Mod~12]&lt;&gt;p@h],
m==15,&quot;a quarter past &quot;&lt;&gt;w,
m==30,&quot;half past &quot;&lt;&gt;w,
m==45,&quot;a quarter to &quot;&lt;&gt;s[h~Mod~12+1]&lt;&gt;p@h,
m&lt;30,s@m&lt;&gt;&quot; minutes after &quot;&lt;&gt;w,
m&gt;29,s[60-m]&lt;&gt;&quot; minutes before &quot;&lt;&gt;s[h~Mod~12+1]&lt;&gt;p@h]]

Current Time
f[]


&quot;ten minutes past three in the afternoon.&quot;

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}]


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