Hallo,
hat jemand ein Script (oder auch Formel), welches die Kalenderwoche aus einem Datum berechnet? Ich hatte sowas schon mal gesehen, jedoch finde ich das nicht mehr.
Alle Lösungen oder auch nur die Ansätze sind willkommen!!!
so long,
Niko
Hai Niko,
Eine gute Adresse wenn man so etwas sucht ist:
http://www.keysolutions.com/NotesFAQ/howweek.html
Und das hier habe ich im Notes Net gefunden. Dank an Ulrich Krause, der das geposted hat.
REM „This formula satisfies ISO 8601:1988“;
REM „D is the date of interest.“;
D := Besuchstag;
REM „D := [31/12/95]“;
FirstOfYear := @Date(@Year(D); 1; 1);
LastOfYear := @Date(@Year(D); 12; 31);
FirstDayNum := @Weekday(FirstOfYear);
LastDayNum := @Weekday(LastOfYear);
REM „ISO weeks start on Monday and ends on Sunday.“;
ISOFirstDayNum := @If(FirstDayNum = 1; 7; FirstDayNum - 1);
ISOLastDayNum := @If(LastDayNum = 1; 7; LastDayNum - 1);
REM „The first and last ISO week is the first“;
REM „and last ISO week to include Thursday“;
IsFirstWeek := 7 - ISOFirstDayNum > 2;
IsLastWeek := 7 - ISOLastDayNum ISOLastDay; @Return(@Prompt([OK]; „FWNY“;
@Text(@Year(D)+1) + „W01“)); NULL);
REM „I suspect this is where Julian dates would be useful“;
REM „A recursive call could be used in a real language“;
LastWeekLastYear := (D - @Adjust(FirstOfYear; -1; 0; 0; 0; 0; 0))/60/60/24/7;
AdjustLastWeek := 1 - (LastWeekLastYear - @Integer(LastWeekLastYear));
@Set(„LastWeekLastYear“; LastWeekLastYear + AdjustLastWeek);
@If(D [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Eine gute Adresse wenn man so etwas sucht ist:
http://www.keysolutions.com/NotesFAQ/howweek.html
Danke, oder für alle, die’s etwas kürzer möchten:
http://www.spotlight2.de/foren/lts/messages/lts-9755…
Man vergisst doch immer wieder, wie mächtig eigentlich Format($) sein kann…