HAllo Notesfreunde,
ich stehe mal wieder auf der Leitung.
Wie kann man in Notes Script die Kalenderwoche berechnen.
Leider hat die Forumssuche nichts erbracht.
Für Freunde der Formelsprache hier eine Lösung:
REM {Feld Subject mit der vorhergehenden Kalenderwoche füllen};
_Test:="Weekly Production Report - Issue " +@Text(@Year(@Today))+" / ";
REM {Berechnung der Kalenderwoche des Tages >>Datum<<};
Datum :=@Today;
Wochenstart := @Adjust(Datum; 0;0; -@Weekday(Datum)+@If(@Weekday(Datum)=1;-5;2); 0;0;0);
ErsterJanuar := @Date(@Year(Wochenstart); 1; 1);
ErsterWochentag := @Weekday(ErsterJanuar);
MinutenProTag := 60 * 60 * 24;
TagImJahr := (Wochenstart - ErsterJanuar) / MinutenProTag;
Kalenderwoche := 1 + @Round(TagImJahr / 7);
KW := @If((ErsterWochenTag *= 2:3:4) & (Kalenderwoche = 53); 1; Kalenderwoche);
KW:=@If(KW > 1; KW -1;KW);
@SetField("Subject"; _Test+" KW "+@Text(KW));"";
Das hätte ich gerne in Script.
Danke im Voraus
Bernd99