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

* Fix bug #0033623, add parameters to UnixToDateTime/DateTimeTounix to return/accept UTC

Browse Source 
git-svn-id: trunk@39444 -
This commit is contained in:
michael 2018-07-13 07:23:08 +00:00
parent 0c6cf12fbf
commit 6568dea8a9
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/rtl-objpas/src/inc/dateutil.inc
View File

@ -409,8 +409,8 @@ Function TryModifiedJulianDateToDateTime(const AValue: Double; out ADateTime: TD
Unix timestamp support.
---------------------------------------------------------------------}
Function DateTimeToUnix(const AValue: TDateTime): Int64;
Function UnixToDateTime(const AValue: Int64): TDateTime;
Function DateTimeToUnix(const AValue: TDateTime; AInputIsUTC: Boolean = True): Int64;
Function UnixToDateTime(const AValue: Int64; aReturnUTC : Boolean = true): TDateTime;
Function UnixTimeStampToMac(const AValue: Int64): Int64;
{ ---------------------------------------------------------------------
@ -2228,16 +2228,25 @@ end;
Unix timestamp support.
---------------------------------------------------------------------}
Function DateTimeToUnix(const AValue: TDateTime): Int64;
Function DateTimeToUnix(const AValue: TDateTime; AInputIsUTC: Boolean = True): Int64;
Var
T : TDateTime;
begin
Result:=Round(DateTimeDiff(RecodeMillisecond(AValue,0),UnixEpoch)*SecsPerDay);
T:=aValue;
if Not aInputisUTC then
T:=IncMinute(T,GetLocalTimeOffset);
Result:=Round(DateTimeDiff(RecodeMillisecond(T,0),UnixEpoch)*SecsPerDay);
end;
Function UnixToDateTime(const AValue: Int64): TDateTime;
Function UnixToDateTime(const AValue: Int64; aReturnUTC : Boolean = true): TDateTime;
begin
Result:=IncSecond(UnixEpoch, AValue);
if Not aReturnUTC then
Result:=IncMinute(Result,-GetLocalTimeOffset);
end;