http://snippets.dzone.com/posts Sat, 17 May 2008 17:47:32 GMT DZone Snippets: epoch code http://snippets.dzone.com/posts/show/1652 <code> <br />date-to-epoch: func [ <br /> "Returns a unix time (epoch) format from a date." <br /> date [date!] <br /> /local res <br />][ <br /> ; If no time is given, negate our zone to give us 0:00 UTC <br /> if none? date/time [date/time: negate now/zone] <br /> ; This uses the epoch base in UTC, so we assume that either <br /> ; the date is also in UTC, or has a zone offset included. <br /> ; DIFFERENCE fails for huge time differences, so we subtract <br /> ; them instead, giving us a difference in days, and multiply <br /> ; by the number of seconds in a day. <br /> either res: attempt [to integer! difference date 1-Jan-1970/0:0:0] <br /> [res] <br /> [date - 1-Jan-1970/0:0:0 * 86400.0] <br />] <br /></code> Wed, 08 Mar 2006 00:56:52 GMT http://snippets.dzone.com/posts/show/1652 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/1651 <code> <br />epoch-to-date: func [ <br /> "Returns a date from unix time (epoch) format." <br /> value [integer!] "Number of seconds since 1-Jan-1970" <br /> /local date time <br />][ <br /> value: to time! value <br /> date: 1-Jan-1970 + round/down value / 24:0:0 <br /> time: value // 24:0:0 <br /> add now/zone to date! rejoin [date "/" time now/zone] <br />] <br /></code> Wed, 08 Mar 2006 00:56:03 GMT http://snippets.dzone.com/posts/show/1651 gregg.irwin (Gregg Irwin)