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

* Fix for timestamps very close to a whole day in Firebird

Browse Source 
git-svn-id: trunk@43615 -
This commit is contained in:
joost 2019-11-30 11:04:19 +00:00
parent 4e4f55ac0e
commit d8c81744d3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -1442,6 +1442,13 @@ begin
{$ELSE} {$ELSE}
PISC_TIMESTAMP(CurrBuff)^.timestamp_date := Trunc(PTime) + IBDateOffset; PISC_TIMESTAMP(CurrBuff)^.timestamp_date := Trunc(PTime) + IBDateOffset;
PISC_TIMESTAMP(CurrBuff)^.timestamp_time := Round(abs(Frac(PTime)) * IBTimeFractionsPerDay); PISC_TIMESTAMP(CurrBuff)^.timestamp_time := Round(abs(Frac(PTime)) * IBTimeFractionsPerDay);
if PISC_TIMESTAMP(CurrBuff)^.timestamp_time = IBTimeFractionsPerDay then
begin
// If PTime is for example 0.99999999999999667, the time-portion of the
// TDateTime is rounded into a whole day. Firebird does not accept that.
inc(PISC_TIMESTAMP(CurrBuff)^.timestamp_date);
PISC_TIMESTAMP(CurrBuff)^.timestamp_time := 0;
end;
{$ENDIF} {$ENDIF}
end end
else else