mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Range check error

Browse source 
(cherry picked from commit 06af97c346)
This commit is contained in:
Alexander Koblov 2024-08-02 21:21:58 +03:00
commit ca4ccfdab5
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
components/doublecmd/dcdatetimeutils.pas
View file

@ -483,7 +483,7 @@ end;
function UnixFileTimeToDateTimeEx(UnixTime: DCBasicTypes.TFileTimeEx) : TDateTime;
var
ATime: TTimeStruct;
milliseconds: Word;
Milliseconds: Word;
begin
if (fpLocalTime(@UnixTime.sec, @ATime) = nil) then
Exit(UnixEpoch);
@ -498,9 +498,11 @@ begin
if ATime.tm_sec > 59 then
ATime.tm_sec := 59;
milliseconds:= round( Extended(UnixTime.nanosec) / (1000.0*1000.0) );
if (milliseconds > 999) then
milliseconds:= 999;
if (UnixTime.nanosec > 999000000) then
Milliseconds := 999
else begin
Milliseconds := Round( Extended(UnixTime.nanosec) / (1000.0 * 1000.0) );
end;
Result := ComposeDateTime(EncodeDate(ATime.tm_year, ATime.tm_mon, ATime.tm_mday),
EncodeTime(ATime.tm_hour, ATime.tm_min, ATime.tm_sec, milliseconds));