----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 14, 2000 1:55 PM
Subject: [REBOL] Time Re:
>
> > I've just ran into a brick wall.
> >
> > Where is the epoc time support in Rebol?
> >
>
> It's easy enough to do, Deryk... Here's to epoch time:
>
> ----------------------------------------------------------------------
>
> REBOL[
> File: %epoch.r
> Author: "Ralph Roberts"
> ]
>
>
> date: now
>
> seconds: ((date - 1-1-1970) * 86400) + (date/time/hour * 3600) +
> (date/time/minute * 60) + date/time/second
>
> zone: now/zone
>
> zone: zone/hour
>
> zone: zone * 3600
>
> seconds: seconds - zone ; minus a minus gives plus
>
> print seconds
> ----------------------------------------------------------------
>
> (I just ran the above and got 960987050 for the time period that I'm doing
> this message).
>
> And here's how to convert back:
>
> ------------------------------------------------------------------
>
> REBOL [
> Title: "Convert Epoch Time to Date"
> Author: "Ralph Roberts"
> File: %epoch-to-date.r
> Date: 21-Feb-2000
> Purpose: {converts UNIX Epoch time (seconds after 1-1-1970)
> to current date and time }
> Example: {outputs "Epoch date 951142987 is 21-Feb-2000
> 14:38:52 GMT or 9:38:52 Local" }
> ]
>
> epoch: 951505087
>
> days: divide epoch 86400
>
> days2: make integer! days
>
> time: (days - days2) * 24
> hours: make integer! time
> minutes: (time - hours) * 60
> minutes2: make integer! minutes
> seconds: make integer! (minutes - minutes2) * 60
> time2: make time! ((((hours * 60) + minutes2) * 60) + seconds)
>
> prin ["Epoch date" epoch "is" 1-Jan-1970 + days2 time2]
> print [" GMT or" time2 + now/zone "Local"]
> -----------------------------------------------------------------
>
>
> Enjoy!
>
> --Ralph Roberts
>
> author: REBOL/CORE FOR DUMMIES
>
>
