返回某年某月有多少天

 闰年的判断：

1、能被 400 整除
2、能被 4 整除但是不能被 100 整除

1. function ResultMonthDays(const yy, mm: Word): Byte;
2. begin
3.   case mm of
4.     1,3,5,7,8,10,12 : Result :=31;
5.     4,6,9,11        : Result :=30;
6.     2 : begin
7.       if (yy mod 400 =0) or ((yy mod 4=0) and (yy mod 100 <>0) ) then
8.         Result :=29 else Result := 28;
9.     end;  
10. end;