delphi7 一个月有多少天的自定义函数

函数实现（code)

function DaysInAMonth(const AYear,AMonth:Word):Word;
begin
   Result:=MonthDays[IsLeapYear(Ayear)][AMonth];
end;

函数调用

var

aa:word;

begin

     aa:=DaysInAMonth(2009,12);  //aa的值为31

end;

 

 

判断是否为润年

function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;

闰年的计算方法：公元纪年的年数可以被四整除，即为闰年；被100整除而不能被400整除为平年；

被100整除也可被400整除的为闰年。如2000年是闰年，而1900年不是。

 

转载于:https://www.cnblogs.com/kylskjb/archive/2009/12/01/1614915.html