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

Unit
QESBPCSDateTime

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

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

Category
Date/Time Comparison

Implementation

function SameDate (const DT1, DT2: TDateTime): Boolean;
begin
     Result := Int (DT1) = Int (DT2);
End;


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