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

* Added msec precision to TimeStampStructToDateTime (bug ID 19284, patch bu Lacak2

Browse Source 
git-svn-id: trunk@17402 -
This commit is contained in:
michael 2011-05-04 09:07:57 +00:00
parent 44f09afaf6
commit 76e27dff7e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/odbc/src/odbcsql.inc
View File

@ -1710,7 +1710,7 @@ Function TimeStampStructToDateTime( B : PSQL_TIMESTAMP_STRUCT) : TDateTime;
begin begin
With B^ do With B^ do
Result:=EncodeDate(Year,Month,Day)+ Result:=EncodeDate(Year,Month,Day)+
EncodeTime(Hour,Minute,Second,0); EncodeTime(Hour,Minute,Second,Fraction div 1000000);
end; end;
Function TimeStructToDateTime (B : PSQL_TIME_STRUCT) : TDateTime; Function TimeStructToDateTime (B : PSQL_TIME_STRUCT) : TDateTime;