计算某日期距离今天的天数

来源:百度文库 编辑:神马文学网 时间:2024/04/25 12:36:42
http://fayaa.com/code/view/401/raw/##------------------------------------------## 计算某日期距离今天的天数 okdns 478602@qq.com##------------------------------------------## 说明,功能由两个函数组成## count_days_ad()是基础,它计算某日离公元0年的天数## count_days()是增强,它计算某日离今天的天数##------------------------------------------## 调用 count_days(某年,某月,某天); 则返回距离今天的天数#-------------------------------------------sub count_days{my($year,$mon,$mday)=@_;($t,$t,$t,$mday1,$mon1,$year1,$t,$t)=localtime(time);$year1+=1900;$mon1+=1;$days1=count_days_ad($year1,$mon1,$mday1);$days2=count_days_ad($year,$mon,$mday);return $days2-$days1;}sub count_days_ad{my($year,$mon,$mday)=@_;my @mon=(0,31,28,31,30,31,30,31,31,30,31,30,31);if ($year%4==0){$mon[2]=29;}my $days=$year*365;for ($i=0;$i<=$mon-1;$i++) {$days+=$mon[$i];}$days+=$mday;return $days;}(#)