=encoding euc-jp =head1 NAME =begin original Time::Seconds - a simple API to convert seconds to other date values =end original Time::Seconds - 他の日付の値を秒に変換する簡単な API =head1 SYNOPSIS use Time::Piece; use Time::Seconds; my $t = localtime; $t += ONE_DAY; my $t2 = localtime; my $s = $t - $t2; print "Difference is: ", $s->days, "\n"; =head1 DESCRIPTION =begin original This module is part of the Time::Piece distribution. It allows the user to find out the number of minutes, hours, days, weeks or years in a given number of seconds. It is returned by Time::Piece when you delta two Time::Piece objects. =end original このモジュールは、Time::Piece ディストリビューションの一部です。 このモジュールは、ユーザが、指定された秒数が分、時間、日、週、年で いくつになるのかを出せるようにします。 二つの Time::Piece オブジェクトの差分を出すときに、 Time::Piece オブジェクトによって返されます。 =begin original Time::Seconds also exports the following constants: =end original Time::Seconds は、下記の内容もエキスポートします: ONE_DAY ONE_WEEK ONE_HOUR ONE_MINUTE ONE_MONTH ONE_YEAR ONE_FINANCIAL_MONTH LEAP_YEAR NON_LEAP_YEAR =begin original Since perl does not (yet?) support constant objects, these constants are in seconds only, so you cannot, for example, do this: Cminutes;> =end original Perl は(まだ?)定数オブジェクトに対応していないので、これらの定数は秒数だけ です; 従って、例えば次のようにはできません: Cminutes;> =head1 METHODS (メソッド) =begin original The following methods are available: =end original 下記のメソッドが使えます: my $val = Time::Seconds->new(SECONDS) $val->seconds; $val->minutes; $val->hours; $val->days; $val->weeks; $val->months; $val->financial_months; # 30 days $val->years; =begin original The methods make the assumption that there are 24 hours in a day, 7 days in a week, 365.24225 days in a year and 12 months in a year. (from The Calendar FAQ at http://www.tondering.dk/claus/calendar.html) =end original メソッドは、1 日は 24 時間、1 週は 7 日、1 年は 365.24225 日、 1 年は 12 ヵ月であると想定しています。 (http://www.tondering.dk/claus/calendar.html のカレンダー FAQより) =head1 AUTHOR Matt Sergeant, matt@sergeant.org Tobias Brox, tobiasb@tobiasb.funcom.com BalEzs SzabE (dLux), dlux@kapu.hu =head1 LICENSE =begin original Please see Time::Piece for the license. =end original ライセンスについては Time::Piece を参照してください。 =head1 Bugs =begin original Currently the methods aren't as efficient as they could be, for reasons of clarity. This is probably a bad idea. =end original 今のところメソッドは明確化のためにそれほど効率的ではありません。 これはおそらく間違った考えです。 =begin meta Translate: 加藤敦 (1.08) Update: SHIRAKATA Kentaro (1.20) =end meta =cut