Monatliche Aktion

[WolfgangSaul]

Hallo,
ich möchte monatlich am 1. Samstag einige Dateien verschieben. Unter Termin kann ich zwar monatlich auswählen aber nicht wann im Monat. Gibt es da irgendwo eine Einstellmöglichkeit?
Wolfgang

[tobias]

Guten Tag,
das geht mit dem folgenden PascalScript. Der Job muss auf "Täglich um X Uhr" stehen, und das Script sorgt dafür, dass automatisch der erste Samstag im Monat ausgewählt wird. Das Script wird im Profil unter Allgemein->PascalScript hinterlegt.

Code: Select all

function OnGetNextRunTime(const LastRun, ProposedNextRun: Double):Double;
var DidItRunThisMonth:Boolean;
begin
  Result:=ProposedNextRun;
 
  DidItRunThisMonth:=(MonthOf(LastRun)=MonthOf(Now)) and
      (MonthOf(LastRun)=MonthOf(ProposedNextRun)) and
      (DayOf(LastRun)<DayOf(ProposedNextRun));
 
  if DidItRunThisMonth then begin
    // go to the next month
    while DayOf(Result)>1 do
      Result:=Result+1;
    end
  else begin
    // go to the next month if we are beyond week #1
    while DayOf(Result)>7 do
      Result:=Result+1;
    end;
 
  // second, advance further until it's a Saturday
  while DayOfTheWeek(Result)<>6 do
    Result:=Result+1;
  end;