paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 13:10:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added Conversion TDateTime <-> file date and time

Browse Source
This commit is contained in:
michael 1998-10-11 13:40:52 +00:00
parent 3b8fd18808
commit d03858ae89
2 changed files with 39 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/objpas/dati.inc
View File

@ -546,9 +546,41 @@ begin
Result := FormatDateTime(FormatStr, DateTime);
end ;
Function DateTimeToFileDate(DateTime : TDateTime) : Longint;
Var YY,MM,DD,H,m,s,msec : Word;
begin
Decodedate (DateTime,YY,MM,DD);
If (YY<1980) or (YY>2099) then
Result:=0
else
begin
DecodeTime (DateTime,h,m,s,msec);
Result:=(s shr 1) or (m shl 5) or (h shl 11);
Result:=Result or DD shl 16 or (MM shl 21) or ((YY-1980) shl 25);
end;
end;
Function FileDateToDateTime (Filedate : Longint) : TDateTime;
Var Date,Time : Word;
begin
Date:=FileDate shl 16;
Time:=FileDate and $ffff;
Result:=EncodeDate((Date shr 9) + 1980,(Date shr 5) and 15, Date and 31) +
EncodeTime(Time shr 11, (Time shr 5) and 63, (Time and 31) shl 1,0);
end;
{
$Log$
Revision 1.3 1998-09-16 08:28:36 michael
Revision 1.4 1998-10-11 13:40:52 michael
+ Added Conversion TDateTime <-> file date and time
Revision 1.3 1998/09/16 08:28:36 michael
Update from gertjan Schouten, plus small fix for linux
Revision 1.1 1998/04/10 15:17:46 michael

7
rtl/objpas/datih.inc
View File

@ -117,11 +117,16 @@ function StrToTime(const S: string): TDateTime;
function StrToDateTime(const S: string): TDateTime;
function FormatDateTime(FormatStr: string; DateTime: TDateTime):string;
procedure DateTimeToString(var Result: string; const FormatStr: string; const DateTime: TDateTime);
Function DateTimeToFileDate(DateTime : TDateTime) : Longint;
Function FileDateToDateTime (Filedate : Longint) : TDateTime;
{
$Log$
Revision 1.3 1998-10-08 14:07:45 florian
Revision 1.4 1998-10-11 13:40:53 michael
+ Added Conversion TDateTime <-> file date and time
Revision 1.3 1998/10/08 14:07:45 florian
* date and day names fixed
Revision 1.2 1998/09/16 08:28:37 michael