Date::Calc - 日付の計算

use Date::Calc qw(:all);

#今日の日付を取得
($year, $month, $day) = Today();

#現在のタイムスタンプを取得（形式：2003-06-12)
($year, $month, $day, $hour, $min, $sec) = Today_and_Now();

#現在の曜日を数字にて取得
$day_of_week = Day_of_Week($year,$month,$day);

#現在の曜日をテキストにて取得
$string_full = Day_of_Week_to_Text($day_of_week);

#今日の曜日をテキスト（省略形）にて取得
$string_abb = Day_of_Week_Abbreviation($day_of_week);

#昨日の日付を取得
($d_year, $d_month, $d_day) = Add_Delta_Days($year, $month, $day, -1);

#一年三ヶ月後の日時を取得
Add_Delta_YM($year, $month, $day,+1,+3);

#指定月の日数を取得（月末日の取得）
$days = Days_in_Month($year,$month);

#指定した日付が実在するかどうか確認。実在する場合1を返す
check_date(2004, 2, 31);