perl – 计算日期的年数增量

发布时间：2020-12-16 06:08:57 所属栏目：大数据来源：网络整理

导读：我试图找出一种方法来计算记录的出生年份,在给定日期给出两位小数的年龄 – 在Perl中. 为了说明这个例子,考虑以下两个记录： date,age at date25 Nov 2005,74.2321 Jan 2007,75.38 我想要做的是根据这些记录获得出生年份 – 从理论上讲,它应该是一致的.问题

我试图找出一种方法来计算记录的出生年份,在给定日期给出两位小数的年龄 – 在Perl中.

为了说明这个例子,考虑以下两个记录：

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

我想要做的是根据这些记录获得出生年份 – 从理论上讲,它应该是一致的.问题在于,当我尝试通过计算日期字段中年份与年龄之间的差异来推导它时,我遇到了舍入错误,导致结果看起来错误,而实际上它们是正确的.

我尝试使用int()或sprintf()的一些“聪明”组合来解决问题,但无济于事.我看过Date :: Calc但是看不到我能用的东西.

附：由于许多日期是在1970年之前,我不能不幸地使用UNIX纪元.

解决方法

Perl的gmtime和localtime函数在1970年之前处理负输入和日期没有问题.

use Time::Local;
$time = timegm(0,25,11-1,2005-1900);          # 25 Nov 2005
$birthtime = $time - (365.25 * 86400) * 74.23;    # ~74.23 years
print scalar gmtime($birthtime);                  # ==> Wed Sep 2 11:49:12 1931

实际的出生日期可能会有几天不同,因为一年中只有一百分之一只会给你3-4天的分辨率.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!