... and use TAI clock
<< Months`Months`
{PrettyDate[], PrettyDate[calendarChange2[Date[], gregorian, julian], julian], MoonPhase[]}
{"Sunday, July 13 2014. 2:37:04 p.m. -4 GMT", "Saturday, Iunius 30 2014. 2:37:04 p.m. -4 GMT", "Full Moon"}
timeDeduce, a minor extra: deduce and show other times / angles, using time eqn.
input: GMT,lon,tz,arieslon
output: input + SHA,Ra,LHA ; in dn,tm or ang
(for historic reasons files are also in https://sourceforge.net/projects/periodictablemm/)