Modules de calendrier

Shakespeare et Cervantès sont tous les deux morts le 23 avril 1616. Lequel des deux est mort le premier ?

  use DateTime::Calendar::Christian;

  my $ws = DateTime::Calendar::Christian->new(
                       year  => 1616,
                       month => 4,
                       day   => 23,
                       reform_date => 'uk' );
  my $mc   = DateTime::Calendar::Christian->new(
                       year  => 1616,
                       month => 4,
                       day   => 23,
                       reform_date => 'italy' ); # même date que l'Espagne
  my $s = DateTime->from_object(object => $ws); # pour avoir un "overload"
  my $c = DateTime->from_object(object => $mc); # sur les comparaisons
  my $comp = 'le même jour que';
  $comp = 'avant' if $c < $s;
  $comp = 'après' if $c > $s;
  print "Cervantes est mort $comp Shakespeare\n";

  my $d = $c - $s;
  print abs($d->delta_days), " jour(s) d'écart\n";

Utilise

  DateTime                       (calendrier grégorien)
  DateTime::Calendar::Julian
  DateTime::Calendar::Christian  (bascule automatiquement de julien vers grégorien)

et nous apprend que Cervantes est mort le premier, 10 jours avant Shakespeare.