[REBOL] Time
From: philb:upnaway at: 6-Aug-2001 15:16
Hi John,
I'm sure there is better way of doing it but you can try this .....
rebol []
fn-epoch: func [ip-date [date!]]
[
lv-days: ip-date/date - 01-Jan-1970
return (lv-days * 86400) + (ip-date/time/hour * 3600) + (ip-date/time/minute * 60) +
ip-date/time/second
]
; test
print fn-epoch 21-Feb-2000/14:23:07
halt
HTH
Cheers Phil
-- Original Message --
I would like to display the EPOCH date -you know, in seconds since Jan 1, 1970.
Example '951142987 is the epoch for 21 Feb. 2000
Dummies
says that it is easy, but doesn't tell you how.
/john