delphi 中怎么知道某一个月有多少天

来源:互联网 发布:java 常量类初始化map 编辑:程序博客网 时间:2024/05/17 06:18

Delphi 2010-11-30 09:19:46 阅读0 评论0   字号: 订阅

if (month in (1,3,5,7,8,10,12))
return 31;
else if (month in(4,6,9,11))
return 30;
else if (year 是闰年)
return 29;
else
return 28; 
闰年的算法
((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0)
原创粉丝点击