perl計算之前某個日期到現在一共多少天
2 回答
繁星淼淼
TA貢獻1775條經驗 獲得超11個贊
1 2 3 4 | use Date::Calc qw/Delta_Days/;
# $Dd = Delta_Days($year1,$month1,$day1 => $year2,$month2,$day2); $days = Delta_Days(2000,10,31,2016,10,31); # 5844 |
如果日子 1 是比日期 2 來得晚 (如: $year1 為 2016, $year2 為 2000), 則會顯示為負數
明月笑刀無情
TA貢獻1828條經驗 獲得超4個贊
1 2 3 4 5 6 7 | use Time::Local; print elapse(2016, 12,1); sub elapse { my ($y, $m, $d) = @_; my $f = timelocal(0, 0, 0, $d, $m - 1, $y); return int((time -$f)/86400); } |
- 2 回答
- 0 關注
- 976 瀏覽
添加回答
舉報
0/150
提交
取消