如何计算两个日期的年天形式差值（不含月份且处理闰年）？

需求描述 #

需要计算两个日期的差值，以「年数+天数」的形式输出，其中较早的固定日期为1847年6月11日。例如：当对比日期为2021年6月9日时，期望结果为 173年363天。

当前实现问题 #

使用以下Perl代码无法得到正确结果：

my $firstdate = DateTime::Format::Strptime->new(pattern => '%Y%m%d')->parse_datetime($papers{$paper}->{'firstday'});
my $today = DateTime::Format::Strptime->new(pattern => '%Y%m%d')->parse_datetime($date);
my $diff = $today - $firstdate;
printf("%d years and %d days\n", $diff->in_units(qw( years days )));

当前输出：

173 years and 29 days

问题原因：in_units(qw( years days )) 是分别独立计算年数和剩余天数，而非先算完整年数后，再计算同年份内的天数差。如果加入months参数会得到11个月加29天，二者合计才是需要的363天，但闰年的存在导致无法直接用取模运算处理。

解决方案 #

核心思路是：先计算两个日期之间的完整年数，然后将较早日期加上这些年数，再计算新日期与目标日期的天数差。这样就能自动处理闰年、不同月份天数差异的问题。

实现代码如下：

use DateTime;
use DateTime::Format::Strptime;

# 解析固定起始日期和目标日期
my $strp = DateTime::Format::Strptime->new(pattern => '%Y%m%d');
my $start_date = $strp->parse_datetime('18470611');
my $target_date = $strp->parse_datetime($date); # $date为你的目标日期变量

# 计算完整年数
my $years = $target_date->year - $start_date->year;

# 调整起始日期到对应年份，检查是否过了当年的起始日期日
my $adjusted_start = $start_date->clone->add(years => $years);
if ($adjusted_start > $target_date) {
    $years--;
    $adjusted_start->subtract(years => 1);
}

# 计算剩余天数
my $days_diff = $target_date->delta_days($adjusted_start)->in_units('days');

# 输出结果
printf("%d年%d天\n", $years, $days_diff);

代码说明 #

1. 日期解析：统一用DateTime::Format::Strptime解析日期，确保格式一致。
2. 完整年数计算：先直接用年份差初步计算，再通过调整后的起始日期与目标日期的比较，修正年数（如果目标日期还没到当年的起始日，则年数减1）。
3. 天数差计算：用delta_days方法计算调整后的起始日期到目标日期的精确天数，自动处理闰年和月份天数差异。

测试用例：当目标日期为2021年6月9日时，会得到173年363天的正确结果。

内容的提问来源于stack exchange，提问作者John O