[程序]两个日期之间的天数计算

在HIS中，经常会需要计算两个日期之间的天数，比如计算住院天数。

如果从两个日期的年、月、日进行比较编程计算，可能会有些麻烦，因为需要注意大月小月、闰年的问题，弄不好会误差一天两天。

在Perl中，可以使用Date::Parse模块进行计算，而且很简单。它的原理是把两个日期都整理为UNIX时间戳，相差的秒数除以86400(一天的的秒数)，就得出两个日期之间的天数。

Date::Parse支持很多日期格式，比如03/07/2009、2009-08-06 15:30、14:22:42,Thursday,19-04-2007等等。

[@more@]

#!/usr/bin/perl

use Date::Parse;

$t1 = str2time('2009-2-20');
$t2 = str2time('2009-3-17');

$days = ($t2 - $t1) / 86400;

print "$days";

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21129783/viewspace-1024157/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21129783/viewspace-1024157/