0 / 60 seg.

Print " Day " & Day(DateSerial(1994, 12, 20)) & " of the month "