यह perl डेटटाइम गणित अप्रत्याशित परिणाम क्यों उत्पन्न करता है?

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 

यह कहाँ से 3 दिन प्राप्त करता है? मेरी उम्मीद 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 

इस के लिए मेरी उम्मीद 62 11 31 या उससे भी अधिक है।

मैं उम्र गणित को जन्म के कुछ बुनियादी तारीख करने के लिए कोशिश कर रहा हूँ। महीने और साल काम करने लगते हैं जैसा कि मैं उम्मीद करता हूं लेकिन दिन अप्रत्याशित लगता है। मैंने सीपीएएन दस्तावेज पढ़ा है लेकिन मुझे अभी भी समझ में नहीं आता है।

Answer 1

$dif->years, $diff->months और विशेष रूप से $diff->days में आप क्या उम्मीद नहीं करते हैं। DateTime::Duration documentation ...

से ये तरीक़े बड़ी इकाईयों में रूपांतरण किया होने के बाद दिया इकाई वस्तु का प्रतिनिधित्व करता है, में से कितने का संकेत संख्या लौटने। उदाहरण के लिए, दिन पहले सप्ताहों में परिवर्तित हो जाते हैं, और शेष शेष लौटा दिया गया है। ये संख्या हमेशा सकारात्मक होती है।

यहां प्रत्येक विधि देता है:

$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]) 

आप इस संशय है, तो मैं

तुम क्या चाहते in_units है करते हैं।

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