Re: Date::Calc in years?

That's what Delta_YMD, or even N_Delta_YMD are for:

my ($dy, $dm, $dd) = N_Delta_YMD(@array_birth, @array_death);
print "$dy years, $dm months, $dd days\n";
[download]

Without N_, the result would be

81 years, -7 months, 8 days
[download]

N_ fixes the negative number:

80 years, 5 months, 8 days
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: Date::Calc in years? Select or Download Code

Replies are listed 'Best First'.
Re^2: Date::Calc in years? by Anonymous Monk on Oct 18, 2018 at 09:23 UTC
Thank you very much!	[reply]