mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-28 15:09:28 +02:00
Removes adding the timezone information in NowUTC
git-svn-id: trunk@34070 -
This commit is contained in:
parent
724f6f8e29
commit
83a07cc9cd
@ -76,7 +76,6 @@ Procedure EpochToLocal(epoch:longint;out year,month,day,hour,minute,second:Word)
|
||||
Var
|
||||
DateNum: LongInt;
|
||||
Begin
|
||||
inc(Epoch,TZSeconds);
|
||||
Datenum:=(Epoch Div 86400) + c1970;
|
||||
JulianToGregorian(DateNum,Year,Month,day);
|
||||
Epoch:=Abs(Epoch Mod 86400);
|
||||
|
Loading…
Reference in New Issue
Block a user