Leap year coding issue (perhaps)

[MrSpock]

Delphi has a built-in function

if IsLeapYear(2000)
  then

also you can use


try

  DateToStr; StrToDate

except

  correct the date according to your needs by adding or substracting one day

end