Returns the number of the year, represented by the given date value.

Declaration: function YearOf( const AValue : TDateTime) : Word

procedure OnMapEvent(var Value:Variant);
begin
//If the date is 2009-06-25 then the result is 2009
Value := YearOf(Date);
end;