From 67a3af29a0eb072b08e9e18990a2c1104136691e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 24 Jan 2021 10:58:05 +0000
Subject: [PATCH] * Patch from Laco to fix bug ID #37849

git-svn-id: trunk@48381 -
---
 packages/fcl-db/src/sqldb/mysql/mysqlconn.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc b/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
index fe5858050b..3aff95a893 100644
--- a/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
+++ b/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
@@ -1058,7 +1058,7 @@ begin
     Result := 0
   else
     Result := EncodeDate(EY, EM, ED);
-  Result := ComposeDateTime(Result, EncodeTime(EH, EN, ES, EMS));
+  Result := ComposeDateTime(Result, EncodeTimeInterval(EH, EN, ES, EMS));
 end;
 
 function TConnectionName.InternalStrToTime(C: pchar; Len: integer): TDateTime;