Tại sao toán perl DateTime này tạo ra kết quả không mong muốn?

Question

#!/usr/bin/perl 
use DateTime; 

$a = DateTime->new(year=>1952,month=>10,day=>21); 
$b = DateTime->new(year=>2015,month=>10,day=>31); 

$dif = $b-$a; 

print $dif->years() ." ". $dif->months() ." ". $dif->days(); 
# result: 63 0 3 

Trường hợp nhận được 3 ngày từ đâu? Kỳ vọng của tôi là 63 0 10.

#!/usr/bin/perl 
use DateTime; 

$a = DateTime->new(year=>1952,month=>11,day=>1); 
$b = DateTime->new(year=>2015,month=>10,day=>31); 

$dif = $b-$a; 

print $dif->years() ." ". $dif->months() ." ". $dif->days(); 
# result 62 11 2 

Kỳ vọng của tôi cho điều này là 62 11 31 hoặc hơn.

Tôi đang cố gắng thực hiện một số ngày sinh cơ bản để tính toán độ tuổi. Tháng và năm dường như làm việc như tôi mong đợi nhưng ngày dường như không thể đoán trước. Tôi đã đọc tài liệu CPAN nhưng tôi vẫn không hiểu.

Answer 1

$dif->years, $diff->months và cụ thể là $diff->days không làm những gì bạn mong đợi. Từ số DateTime::Duration documentation ...

đối tượng này trả về số lượng đơn vị cho trước là sau khi thực hiện chuyển đổi cho bất kỳ đơn vị lớn hơn nào. Đối với ví dụ , ngày đầu tiên được chuyển đổi thành tuần và sau đó phần còn lại là trả lại. Những con số này luôn tích cực.

Dưới đây là những gì mà mỗi phương thức trả về:

$dur->years()  == abs($dur->in_units('years')) 
$dur->months()  == abs(($dur->in_units('months', 'years'))[0]) 
$dur->weeks()  == abs($dur->in_units('weeks')) 
$dur->days()  == abs(($dur->in_units('days', 'weeks'))[0]) 

Nếu bạn thấy khó hiểu này, vì vậy làm I.

gì bạn muốn là in_units.

# 63 0 10 
say join " ", $dif->in_units('years', 'months', 'days');