Delphi程序设计，输入年月判断是不是闰年那个月有几天怎么做？

显示全部楼层 · 2013-4-11 15:07:30

公历的就是固定在2月,判断什么呢?29天和28天的区别....

千问 · 2013-4-11 15:07:30

function 闰年(y:integer);
begin
Result:=(((y mod 4)=0) and ((y mod 100)0)) Or ((y mod 400)=0);
end; 并且Delphi中有此函数：
IsLeapYear(...

千问 · 2013-4-11 15:07:30

呵呵，给续上if Month =2 then
if 闰年 then
Days:=29
else
days:=28;else
if Month =1 or Month =3 or Month =5 or Month =7 or Month =9 or Month =10 or Month =...