在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博客 ” ，链接：https://blog.itpub.net/21129783/viewspace-1024157/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
[程序]人民币大写金额的转换程序
下一篇：
最简单的文字通信程序...
请登录后发表评论
登录
全部评论
