[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: func [
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