Barrie asked:

I found this on http://www.pixmix.com/FB/HowTo/MATH/MATH039.html
The first line does not make sense. How can I fix it?
Thanks
Barrie

'-------------------------------------
DIM theTime _DateTimeRec
' the 7 fields are all integers
' year, month, day, hour, minute,second, dayOfWeek
'-------------------------------------

' get current time & print its parts....
err = FN READDATETIME( TimeInSeconds& )
CALL SECS2DATE( TimeInSeconds&, @theTime )

PRINT theTime.year, theTime.month, theTime.day
PRINT theTime.hour, theTime.minute, theTime.second
PRINT theTime.dayOfWeek

Barrie,

Try this:


dim as DateTimeRec theTime
dim as long        TimeInSeconds
dim as OSErr       err

err = FN ReaDDateTime( TimeInSeconds )
Secs2Date( TimeInSeconds, @theTime )

print theTime.year, theTime.month, theTime.day
print theTime.hour, theTime.minute, theTime.second
print theTime.dayOfWeek


One caveat when using PixMix examples is that many were constructed 
in FBII and need to be converted to FB^3.

Ken