SecondOfTheWeek returns the number of seconds between the TDateTime value entered as AValue, and 12:00 A.M. of the first day of the week that is specified by AValue.

SecondOfTheWeek defines the week of AValue according to the ISO 8601 standard, where the week starts on Monday and ends on Sunday.

Declaration: Function SecondOfTheWeek(const AValue: TDateTime): Cardinal;

A simple example follows.

procedure ScriptEvent (var Value : variant);
var
TheSec : cardinal;
TheDate : TDateTime;
begin
//The result is 51915
TheDate := EncodeDateTime(2023, 11, 27, 14, 25, 15, 650);
TheSec := SecondOfTheWeek(TheDate);
LogInfo('The number of seconds since the beginning of the week is '+IntToStr(TheSec));
 
//The result is 307515
TheDate := EncodeDateTime(2023, 11, 30, 13, 25, 15, 650);
TheSec := SecondOfTheWeek(TheDate);
LogInfo('The number of seconds since the beginning of the week is '+IntToStr(TheSec));
end;