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

* Implemented DateTimeToTimeStruct, patch from Ladislav Karrach, bug #18773

Browse Source 
git-svn-id: trunk@17400 -
This commit is contained in:
joost 2011-05-03 20:40:03 +00:00
parent 0d7945d8ae
commit 3152f93d23
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1524,6 +1524,7 @@ function DateTimeToDateStruct( b:TDateTime):SQL_DATE_STRUCT;
procedure DateTime2TimeStampStruct( var Value:SQL_TIMESTAMP_STRUCT; b:TDateTime);
Function TimeStampStructToDateTime( B : PSQL_TIMESTAMP_STRUCT) : TDateTime;
Function TimeStructToDateTime (B : PSQL_TIME_STRUCT) : TDateTime;
function DateTimeToTimeStruct(b: TDateTime) : SQL_TIME_STRUCT;
{$IFDEF DYNLOADINGODBC}
@ -1721,5 +1722,13 @@ begin
end;
end;
function DateTimeToTimeStruct(b: TDateTime) : SQL_TIME_STRUCT;
var
w1, w2, w3, w4: Word;
begin
DecodeTime(b, w1, w2, w3, w4);
Result.Hour:=w1 + Trunc(b)*24;
Result.Minute:=w2;
Result.Second:=w3;
end;