TA貢獻(xiàn)1835條經(jīng)驗(yàn) 獲得超7個(gè)贊
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), 則會(huì)顯示為負(fù)數(shù)
TA貢獻(xiàn)1862條經(jīng)驗(yàn) 獲得超6個(gè)贊
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); } |
舉報(bào)