diff options
Diffstat (limited to 'avx512-0037785/packages/rtl-objpas/src/inc/dateutil.inc')
| -rw-r--r-- | avx512-0037785/packages/rtl-objpas/src/inc/dateutil.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/avx512-0037785/packages/rtl-objpas/src/inc/dateutil.inc b/avx512-0037785/packages/rtl-objpas/src/inc/dateutil.inc index 212775196e..1269f3a040 100644 --- a/avx512-0037785/packages/rtl-objpas/src/inc/dateutil.inc +++ b/avx512-0037785/packages/rtl-objpas/src/inc/dateutil.inc @@ -1885,7 +1885,7 @@ end; function TryEncodeTimeInterval(Hour, Min, Sec, MSec: word; out Time: TDateTime): boolean; begin - Result:= (Min<60) and (Sec<60) and (MSec<1000); + Result:= (Min<60) and (Sec<60) and (MSec<=1000); If Result then Time:=TDateTime(cardinal(Hour)*3600000+cardinal(Min)*60000+cardinal(Sec)*1000+MSec)/MSecsPerDay; end; |