The SecondOfTheHour function returns the number of seconds between the specified TDateTime value AValue, and the beginning of the same hour.

Declaration: Function SecondOfTheHour( const AValue : TDateTime) : Word;

An example of its use.

procedure ScriptEvent (var Value : variant);
var
TheSec : word;
begin
TheSec := SecondOfTheHour(Now);
LogInfo('Number of seconds is ' + IntToStr(TheSec));
LogInfo('');
end;