time_date_print.do
Just run the routine and use the globals $tprint2 $tprint to get the current time in a nice format