mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 10:46:18 +02:00
parent
0a9b46d86f
commit
b9290ae6d8
@ -1398,8 +1398,8 @@ begin
|
|||||||
if isUTC then
|
if isUTC then
|
||||||
begin
|
begin
|
||||||
aCreate:=LocalTimeToUniversal(aCreate);
|
aCreate:=LocalTimeToUniversal(aCreate);
|
||||||
aWrite:=LocalTimeToUniversal(aCreate);
|
aWrite:=LocalTimeToUniversal(aWrite);
|
||||||
aAccess:=LocalTimeToUniversal(aCreate);
|
aAccess:=LocalTimeToUniversal(aAccess);
|
||||||
end;
|
end;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user