The DateOf function strips the time portion from a TDateTime value, by extracting the date part from the parameter AValue and returning the result.

The time portion of AValue is set to 00:00:00 - or midnight, and excluded.

Declaration: Function DateOf(const AValue: TDateTime): TDateTime;

An example follows.

procedure OnMapEvent(var Value:Variant);
var
TrimDate : TDateTime;
DispDate : string;
begin
TrimDate := DateOf(Now)
DispDate := FormatDateTime('dd mmm yyyy', TrimDate)
//Displays as dd mmm yyyy only
LogInfo('Formatted Date is: ' + DispDate);
end;

Please also see Date which performs a similar function.