Index / suivant

Quel est le mois le plus long ?

  use DateTime;

  sub duree {
      my ($aaaa, $mm) = unpack 'A4A2', $_[0];
      my $tz = $_[1] || 'Europe/Paris';
      my $dt1 = DateTime->new(year => $aaaa, month => $mm, day => 1,
                              time_zone => $tz, locale => 'fr');
      my $ep1 = $dt1->epoch;
      my $ep2 = $dt1->clone->add(months => 1)->epoch;
      print $ep2 - $ep1, $dt1->strftime(" secondes en %B %Y\n");
  }
  duree 200403;
  duree 200405;
  duree 200410;

Ce qui nous donne :

  2674800 secondes en mars 2004
  2678400 secondes en mai 2004
  2682000 secondes en octobre 2004


Comme j'ai présenté cet exposé le 6 juin 2004, mon introduction partait du « Jour le Plus Long » pour passer au « Mois le Plus Long ». Vous l'avez compris, le mois le plus long est le mois de 31 jours au cours duquel on passe de l'heure d'été à l'heure d'hiver. En France et dans de nombreux pays de l'hémisphère nord, c'est le mois d'octobre.


Index / suivant