Select Code to Download

#Copyright (c) 2011 Michael R. Davis License BSD
perl -e '
...
printf "Week: %s, Seconds: %s\n", $weeks, $seconds;
print DateTime->new(qw{year 1980 month 1 day 6 time_zone UTC})->add(we
+eks=>$weeks)->add(seconds=>$seconds), "\n";
'

sub gps_week_seconds_day {
  my $self          = shift;
...
  my $day           = int($seconds/Secs_per_day);
  ($week, $seconds, $day);
}