* force tryencodetime to perform calculation using the precision of

    tdatetime

git-svn-id: trunk@5941 -

rtl/objpas/sysutils/dati.inc

@@ -117,7 +117,7 @@ function TryEncodeTime(Hour, Min, Sec, MSec:word; Out Time : TDateTime) : boolea
 begin
   Result:=(Hour<24) and (Min<60) and (Sec<60) and (MSec<1000);
   If Result then
-    Time:=(cardinal(Hour)*3600000+cardinal(Min)*60000+cardinal(Sec)*1000+MSec)/MSecsPerDay;
+    Time:=TDateTime(cardinal(Hour)*3600000+cardinal(Min)*60000+cardinal(Sec)*1000+MSec)/MSecsPerDay;
 end;
 
 {   EncodeDate packs three variables Year, Month and Day into a