The function StartOfTheDay returns a TDateTime that represents 12:00:00:00 A.M. on the day specified by AValue.

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

The example follows.

procedure ScriptEvent(var Value:Variant);
var
TheDate ; TDateTime;
begin
TheDate := StartOfTheDay(Date);
LogInfo('The start of the day date is '+FormatDateTime('dd/mm/yyyy hh:nn:ss',TheDate));
end;