The IsInLeapYear function returns True if specified TDateTime value represented by AValue occurs in a leap year. The year is a calendar year.

Declaration: function IsInLeapYear(const AValue: TDateTime): Boolean;

Example

procedure OnMapEvent(var Value:Variant);
var
IsLeap : boolean;
begin
//If the year for NOW() is 2023, then it is NOT a leap year
IsLeap := IsInLeapYear(Now);
if IsLeap = True then
Loginfo('This year is a leap year.')
else
LogInfo('This year is NOT a keap year.');
LogInfo('');
//If the year for NOW()+1 is 2024, then it IS a leap year
IsLeap := IsInLeapYear(IncYear(Now, 1)); //Increments the year value by one
if IsLeap = True then
Loginfo('This year is a leap year.')
else
LogInfo('This year is NOT a keap year.');
LogInfo('');
end;