Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

ibconnection:fixed rounding problem in timestamp (complements r24225)

git-svn-id: trunk@24234 -
reiniero 12 years ago
parent
7b411e70b8
commit
f7d2f86398
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      packages/fcl-db/src/sqldb/interbase/ibconnection.pp

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

@@ -1292,7 +1292,7 @@ begin
 
       {$IFNDEF SUPPORT_MSECS}
 
       isc_encode_sql_time(@CTime, PISC_TIME(CurrBuff));
 
       {$ELSE}
 
-      PISC_TIME(CurrBuff)^ := Trunc(abs(Frac(PTime)) * IBTimeFractionsPerDay);
 
+      PISC_TIME(CurrBuff)^ := Round(abs(Frac(PTime)) * IBTimeFractionsPerDay);
 
       {$ENDIF}
 
     SQL_TIMESTAMP :
 
       begin