* years, months, weeks, days, hours, minutes, seconds, nanoseconds

These methods return numbers indicating how many of the given unit the object represents, after having done a conversion to any larger units. For example, days are first converted to weeks, and then the remainder is returned. These numbers are always positive.

$ perl -l
use strict;
use warnings;
use DateTime;

my $t1 = DateTime->new(
  year   => 2001,
  month  => 4,
  day    => 23,
  hour   => 22,
  minute => 32
);
my $t2 = DateTime->new(
  year   => 2001,
  month  => 4,
  day    => 22,
  hour   => 15,
  minute => 42
);

# subtract_datetime returns a "DateTime::Duration" object
my $dtd1 = $t1->subtract_datetime($t2);

print $dtd1->years . q{ years}             if $dtd1->years;
print $dtd1->months . q{ months}           if $dtd1->months;
print $dtd1->weeks . q{ weeks}             if $dtd1->weeks;
print $dtd1->days . q{ days}               if $dtd1->days;
print $dtd1->hours . q{ hours}             if $dtd1->hours;
print $dtd1->minutes . q{ minutes}         if $dtd1->minutes;
print $dtd1->seconds . q{ seconds}         if $dtd1->seconds;
print $dtd1->nanoseconds . q{ nanoseconds} if $dtd1->nanoseconds;
__END__
1 days
6 hours
50 minutes
[download]