前日の日付取得するには？

localtimeでシステム日付を取得していますが、前日のシステム日付を取得するにはどのようにすればよいのでしょうか？

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/01/07 11:20

スタンダードなやりかたは、まずtimelocalを使って秒表現（エポック秒）に変換しそれから１日分の秒を引くことです。

use Time::Local;
$time=timelocal(localtime);
$oneDay = 24*60*60;
($d, $m, $y)= (localtime($time - $oneDay))[3 .. 5];
printf "yesterday is %d/%02d/%02d\n",$y + 1900,$m + 1,$d;
------------------------------------------------
CPANなどからDate::Calcをダウンロードすれば、
日付のまま扱えます
use Date::Calc qw(Add_Delta_Days);
($day, $month, $year)=(localtime)[3 .. 5];
printf "today is %d/%02d/%02d\n",$year + 1900,$month + 1,$day;
($y, $m, $d)= Add_Delta_Days($year + 1900, $month + 1, $day, -1);
printf "yesterday is %d/%02d/%02d\n",$y,$m,$d;

この回答へのお礼

わかりました。ありがとうございます。

お礼日時：2005/01/07 13:14

No.1 回答者： spinach-chicken 回答日時： 2005/01/07 11:20

localtimeの引数に、１日前のtime値を入れればよいのではないでしょうか？

time関数はUTCで1970年1月1日 00:00:00 からの秒数を返します。ですので、

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 24*60*60);

としたらいかがでしょう？

参考URL：http://www.rfs.jp/sitebuilder/perl/05/func/local …

この回答へのお礼

よくわかりました。ありがとうございます。

お礼日時：2005/01/07 13:11