我试图找出一种方法来计算记录的出生年份,在给定日期给出两位小数的年龄 – 在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天的分辨率.