There is also a word in 4tH that will tell you what time and what date it is. With a little trouble ;). The word is called 'TIME' and it will tell you how many seconds have gone since January 1st, 1970.
Of course, this is a very low level word, but with a few calculations you can quickly make it of use. Like a timer that measures how long certain operation takes, like the execution of a colon-definition ("DO- SOME-WORD" in this case):
time do-some-word time swap - ." Do-Some-Word took " . ." seconds." cr
You can also find out quickly how late it is:
86400 constant s/day : sextal 6 base ! ; : :00 # sextal # decimal [char] : hold ; : time# <# :00 :00 #S #> type cr ; time s/day mod time# cr
Note that it doesn't know about daylight-saving! The day of the week is another thing you can easily calculate:
7 constant days/week 86400 constant s/day 16 string day create weekdays " Thursday" , " Friday" , " Saturday" , " Sunday" , " Monday" , " Tuesday" , " Wednesday" , weekdays time s/day / days/week mod th @' day copy count type cr
We haven't found a nice, small algorhythm to get you the full date. But if we do, you will find it here.