Question

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

就是一个小程序！输入年份，月份，判断那一年是不是闰年，那个月份有多少天！谢谢1

Answer 1

呵呵，给续上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 =11 then days:=31 else days:=30;

Answer 2

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