Tommorrow 15 February 2020 may be an ordinary day to
most people, but for those using the Julian calendar,
it is 2nd Feburary 2020 :
20200202 in YYYYMMDD
02022020 in DDMMYYYY
02022020 in MMDDYYYY.
You can check with this raku program:
-*-*-*- begin
use Date::Calendar::Julian;
my Date $feb15-grg;
my Date::Calendar::Julian $palindrome-jul;
$feb15-grg .= new(2020, 2, 15);
$palindrome-jul .= new-from-date($feb15-grg);
my Str $s1 = $palindrome-jul.strftime("%Y%m%d");
if $s1 eq $s1.flip {
say "$s1 is a palindrome in YYYYMMDD format!";
}
$s1 = $palindrome-jul.strftime("%d%m%Y");
if $s1 eq $s1.flip {
say "$s1 is a palindrome in DDMMYYYY format!";
}
$s1 = $palindrome-jul.strftime("%m%d%Y");
if $s1 eq $s1.flip {
say "$s1 is a palindrome in MMDDYYYY format!";
}
-*-*-*- end
Which implicitly announce the availability of
Date::Calendar::Julian
on CPAN6 for raku.
Some reader might think I repeat myself. That is true, see
https://www.mail-archive.com/datetime@perl.org/msg07318.html
https://www.nntp.perl.org/group/perl.datetime/2020/02/msg8232.html
Thank yo for your attention,
Jean Forget
jforget at cpan dot org
