<br>如何得到指定一天的前一天的日期？？<br>

bigmonkey

UID: 24452
帖子: 3
积分: 6
在线时间: 10 分钟

1^# bigmonkey 发表于 2006-01-15 18:31

<br>如何得到指定一天的前一天的日期？？<br>

如何得到指定一天的前一天的日期？？

如何得到指定一天的前一天的日期？？
假如我通过命令行输入20060116, 表示2006年01月16号，我现在想得到其前一天的日期，该如何处理？？

ps
得到当前时间的前一天很容易。

print localtime()."\n";
my $time=localtime(time()-86400);

cactus

UID: 10814
帖子: 165
积分: 379
在线时间: 1 天 13 小时

2^# cactus 发表于 2006-01-15 21:33

use POSIX qw(strftime);<.
use POSIX qw(strftime);
$STRING = strftime($FORMAT, $SECONDS, $MINUTES, $HOUR,
$DAY_OF_MONTH, $MONTH, $YEAR, $WEEKDAY,
$YEARDAY, $DST);

qiang

UID: 17966
帖子: 1
积分: 2
在线时间: 10 分钟

3^# qiang 发表于 2006-01-16 14:03

可以使用 Perl 自带的 Tim.
可以使用 Perl 自带的 Time::Local 模块，下面这个例子计算 2006,1月1号的前一天。

use Time::Local;

# 这里最后 3 个是这个月的第几天，那个月（从 0 开始)，和年。
# 2006, 1 月 1 号。$time 是 epoch 值。
my $time = timelocal(0,0,0,1,0,2006);
$time = $time - 60*60*24 ; # 拿前一天的 epoch time , 是 1136005200
print scalar localtime($time)"; # 前一天 Sat Dec 31 00:00:00 2005

&lt;br&gt;如何得到指定一天的前一天的日期？？&lt;br&gt;

&lt;br&gt;如何得到指定一天的前一天的日期？？&lt;br&gt;

<br>如何得到指定一天的前一天的日期？？<br>

<br>如何得到指定一天的前一天的日期？？<br>