Were you surprised by Daylight Savings Time?
On Sun, Jan 29, 2017 at 11:32 AM dan moylan <[email protected]> wrote:
>
>
> in fiddling with a perl script to calculate the variable
>
> dates dependent on the date of easter, using Time::Local, i
>
> got the wrong answers for shrove tuesday 47 and ash
>
> wednesday 46 days before easter. this turned out to be what
>
> appears to me as an anomoly in Time::Local at 20170313 where
>
> the delta seconds between days was 3600 sec short. a test
>
> script then found a corresponding anomoly at 20171106 where
>
> the delta seconds was 3600 sec long. fwiw i attach the test
>
> script. have i missed something obvious?
>
>
>
> #! /usr/bin/perl
>
> # tsttme.pl
>
> # created 170129 by jdm3
>
> # revised 170129 by jdm3
>
>
>
> use strict;
>
> use Time::Local;
>
>
>
> my ($dlt, $dte, $tme, $tmepre, $mth, $Mth, $day, $year, );
>
> my (@dim, @mth, );
>
>
>
> $year = $ARGV[0];
>
> if (! $year) {
>
> printf ("enter the year, stupid.\n");
>
> exit (0);
>
> }
>
>
>
> @dim = qw (31 28 31 30 31 30 31 31 30 31 30 31);
>
> @mth = (0 .. 11);
>
>
>
> if ($year%4 == 0) { $dim[1] = 29; }
>
> # printf ("feb: $dim[1]\n");
>
>
>
> $tmepre = &Time::Local::timelocal (0,0,0,31,11,$year-1901);
>
> foreach $mth (@mth) {
>
> foreach $day (1..$dim[$mth]) {
>
> $tme = &Time::Local::timelocal (0,0,0,$day,$mth,$year-1900);
>
> $dlt = $tme - $tmepre;
>
> # printf ("$year$mth$day -- $dlt\n");
>
> $day = sprintf ("%02d", $day);
>
> $Mth = sprintf ("%02d", $mth+1);
>
> if ($dlt != 86400) { printf ("$year$Mth$day -- $dlt\n"); }
>
> $tmepre = $tme;
>
> }
>
> }
>
>
>
> ##########################################################################
>
>
>
> tia,
>
> ole dan
>
>
>
>
>
> j. daniel moylan
>
> 84 harvard ave
>
> brookline, ma 02446-6202
>
> 617-777-0207 (cel)
>
> [email protected]
>
> www.moylan.us
>
> [no html pls]
>
>
>
> _______________________________________________
>
> Boston-pm mailing list
>
> [email protected]
>
> http://mail.pm.org/mailman/listinfo/boston-pm
>
>
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
