请各位帮忙！！ 关于平年和润年的。。。。

Question

不知在delphi里是不是有一个函数可以直接判断是平年和润年的。如果有还请各位赐教。
我写了一个不知道对不对如下：
  int yeas;
 if((yeas%4=0)or ((yeas%100=0)and (yeas%400=0)))
    return(true) ; //返回是润年
  else
    return(false); //返回是平年不知道对不对。。

Answer 1

Unit
DateUtilsfunction DaysInAYear(const AYear: Word): Word;
返回年的天数

Answer 2

uses DateUtils
function IsInLeapYear(const AValue: TDateTime): Boolean;
就可!!