perl計算之前某個日期到現在一共多少天
2 回答
qq_花開花謝_0
TA貢獻1835條經驗 獲得超7個贊
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貢獻1862條經驗 獲得超6個贊
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 關注
- 612 瀏覽
添加回答
舉報
0/150
提交
取消