paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* currentyear (bug 4904)

Browse Source 
git-svn-id: trunk@3031 -
This commit is contained in:
marco 2006-03-25 15:07:54 +00:00
parent 371aa0d78e
commit dd063d920d
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/dati.inc
View File

@ -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;

2
rtl/objpas/sysutils/datih.inc
View File

@ -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);