[Groff] Is there a good way to get time/date?

[marty leisner]

In order to get the time/date I've done:
        

.sy echo Printed `date` >current.date
.so current.date
.sy rm current.date
.sy stat \n(.F | fgrep Change >change.time
.so change.time
.sy rm change.time

And it produced:
            Printed Tue Apr 25 13:09:26 EDT 2000
      Change: Tue Apr 25 13:08:33 2000(00000.00:00:53)

Is there a better way?  There could be.
(this is very useful when doing documents)

marty

marty           address@hidden   
Don't  confuse education with schooling.
        Milton Friedman to Yogi Berra