SameTime Function
Returns True if they are both the same Time ignoring the Date portion.

Unit
QESBPCSDateTime

Declaration
Function SameTime(const DT1, DT2: TDateTime): Boolean;

Description
Times are considered the same if they are less then 1 millisecond apart.

Parameters
DT1 First Time to process.
DT2 Second Time to process.

Category
Date/Time Comparison

Implementation

function SameTime (const DT1, DT2: TDateTime): Boolean;
begin
     Result := abs (Frac (DT1) - Frac (DT2)) < OneDTMillisecond;
End;


HTML generated by Time2HELP
http://www.time2help.com