* currentyear (bug 4904)

git-svn-id: trunk@3031 -

rtl/objpas/sysutils/dati.inc

@@ -730,6 +730,12 @@ begin
 {$endif unix}
 end;
 
+function CurrentYear:Word;
+var yy,mm,dd : word;
+begin
+  Decodedate(now,yy,mm,dd);
+  Result:=yy;
+end;
 
 Function FileDateToDateTime (Filedate : Longint) : TDateTime;
 

rtl/objpas/sysutils/datih.inc

@@ -127,7 +127,7 @@ function TryStrToTime(const S: string; out Value: TDateTime): Boolean;
 // function TryStrToTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
 function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean;
 // function TryStrToDateTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
-
+function CurrentYear:Word;
 { FPC Extra }
 Procedure GetLocalTime(var SystemTime: TSystemTime);