ReplaceDate
Replaces the date portion of a TDateTime value with a specified date