perl - 从日期计算年的增量

Question

我试图找出一种方法来计算记录的出生年份，当在给定日期将年龄设置为两位小数时 - 在 Perl 中。

为了说明此示例，请考虑以下两条记录:

date, age at date
25 Nov 2005, 74.23
21 Jan 2007, 75.38

我想做的是根据这些记录获得出生年份——理论上，它应该是一致的。问题是，当我尝试通过计算日期字段中的年份减去年龄来推导出它时，我遇到了四舍五入错误，使结果看起来错误，而实际上它们是正确的。

我曾尝试使用 int() 或 sprintf() 的一些“聪明”组合来整理但无济于事。我看过 Date::Calc 但看不到我可以使用的东西。

附言由于许多日期都在 1970 年之前，因此我不能不遗憾地使用 UNIX epoch。

Answer 1

你试过了吗DateTime ?它将处理解析以及减法。