NAME

Calendar::Any::Julian - Perl extension for Julian Calendar

VERSION

version 0.5

SYNOPSIS

use Calendar::Any::Julian;
my $date = Calendar::Any::Julian->new(1, 1, 2006);

DESCRIPTION

From "FREQUENTLY ASKED QUESTIONS ABOUT CALENDARS"(http://www.tondering.dk/claus/calendar.html)

    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.

METHOD

is_leap_year

True if the date in a leap year.

day_of_year

Return the day of year the day of the year, in the range 1..365 (or 1..366 in leap years.)

last_day_of_month

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

AUTHOR

Ye Wenbin <wenbinye@gmail.com>

SEE ALSO

Calendar::Any, Calendar::Any::Gregorian