OK I have a small script that was written by one of the users on this
list.
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: 950440200
days: divide epoch 86400
days2: make integer! days
time: (days - days2) * 24
hours: make integer! time
minutes: (time - hours) * 100
minutes2: make integer! minutes
seconds: make integer! (minutes - minutes2) * 100
time2: make time! ((((hours * 60) + minutes2) * 60) + seconds)
However I am not convinced this works properly....here is a perl version
of the same thing that produces different results. I urgently need some
help with this as it is required to analysis and presentation by monday :(
#!/usr/bin/perl -w
my $ts;
while (<>) {
chop;
#my ($day, $month, $year, $hour, $min, $sec) =
# (localtime ($))[3,4,5,0,1,2];
#$year+=1900;
#$month++;
$ts = localtime ($_);
print ("$ts\n");
}
Any help appreciated.......!!!
Cheers
--
Francois Prowse
Network Engineer
UUNET Tel: +32 70 233 560
Culliganlaan 2, H Fax: +32 70 233 559
B-1831 Diegem Email: [EMAIL PROTECTED]
Belgium http://www.be.uu.net
