Date::Calc Delta_Days で日数の差分を取得しよう！！

こんにちは！

本日はDate::Calcモジュールの「Delta_Days」についてご紹介します。
特定の2つの年月日の差分を求めることができます。

use Date::Calc qw/Delta_Days/;
my $days = Delta_Days($year1, $month1, $day1, $year2, $month2, $day2);

この関数で、year1の年月日が、year2の年月日より古ければ正の値を返します。逆の場合は負の値を返します。
2つが同一の値であった場合は0を返します。

日付が「yyyy/m/d」形式であれば、splitを使って以下の様な感じで差分の日数を取得できます。

use Date::Calc qw/Delta_Days/;
my $days = Delta_Days(split(/\D/, $ymd1), split(/\D/, $ymd2));

以上、Delta_Daysの利用方法についてでした。

本日は以上です。
また次回にお会いしましょう。

弊社では工数管理ツールInnoPMをASP製品として提供しています。
工数管理に興味がありましたら、是非以下のURLをご参照下さい。
http://www.innopm.com/