Strips the time portion from a TDateTime value.
function DateOf(const AValue: TDateTime): TDateTime;
TDateTime DateOf(const TDateTime AValue);
DateUtils
Call DateOf to convert a TDateTime value to a TDateTime value that includes only the date information (sets the time portion to 0, which means midnight).
DecodeDate
ReplaceTime
TimeOf