Calendar::Any::Julian - Perl extension for Julian Calendar
use Calendar::Any::Julian; my $date = Calendar::Any::Julian->new(1, 1, 2006);
From "FREQUENTLY ASKED QUESTIONS ABOUT CALENDARS"(
The Julian calendar was introduced by Julius Caesar in 45 BC. It was in common use until the late 1500s, when countries started changing to the Gregorian calendar (section 2.2). However, some countries (for example, Greece and Russia) used it into the early 1900s, and the Orthodox church in Russia still uses it, as do some other Orthodox churches.
In the Julian calendar, the tropical year is approximated as 365 1/4 days = 365.25 days. This gives an error of 1 day in approximately 128 years.
The approximation 365 1/4 is achieved by having 1 leap year every 4 years.
True if the date in a leap year.
Return the day of year the day of the year, in the range 1..365 (or 1..366 in leap years.)
Return the last day in the month. For example:
$date = Calendar::Any::Julian->new(2, 1, 2006); print $date->last_day_of_month; # output 28
Ye Wenbin <email@example.com>