闰年的判断:
1、能被 400 整除
2、能被 4 整除但是不能被 100 整除
1、能被 400 整除
2、能被 4 整除但是不能被 100 整除
- function ResultMonthDays(const yy, mm: Word): Byte;
- begin
- case mm of
- 1,3,5,7,8,10,12 : Result :=31;
- 4,6,9,11 : Result :=30;
- 2 : begin
- if (yy mod 400 =0) or ((yy mod 4=0) and (yy mod 100 <>0) ) then
- Result :=29 else Result := 28;
- end;
- end;