
 \newcount\@hourmin
 \def\timeofday{\@hourmin=\time\divide\@hourmin by 60\relax\the\@hourmin:%
 \multiply\@hourmin by -60 \advance\@hourmin by\time\ifnum\@hourmin<10{0}\fi%
   \the\@hourmin}

%> to produce hh:mm.
