[REBOL] Internet time

From: rchristiansen::pop::isdfa::sei-it::com at: 15-Dec-2000 18:40

As you probably know, Swatch came up with "Internet time" based
on 1000 beats in a day and with Biel, Switzerland as the mean time.

Here is a function which will give you the time in beats.

>> internet-time
== 982.1875

internet-time: func [][
    local-mean-time: now/time
    zone-designator: now/zone * -1
    greenwich-mean-time: local-mean-time + zone-designator
    biel-mean-time: greenwich-mean-time - 1:00:00

    biel-mean-time-total-seconds: (biel-mean-time/hour * 3600) + (biel-mean-time/minute * 
    60) + biel-mean-time/second
    beats: biel-mean-time-total-seconds * .01157407407407407407407407407
]

-Ryan

  [This is the only message in the thread]