Bin mal wieder bei einem meiner Lieblingsthemen: Es gibt eine Script-Funktion, mit der man die Kalenderwoche berechnen kann  
Tatsächlich, seit der Version 4 gibt es die und bis jetzt hat es wohl fast keiner gewusst.

Format$( <Datum>, "ww")
liefert die Kalenderwoche zurück - so die Dokumentation.

Leider arbeitet die Funktion nicht korrekt - es wird jedenfalls nicht der ISO-Standard
>>>
- a week starts with a mondag, monday is day number 1
- week 1 is the first week of the year that has 4 or more days in January (and the rest of course in December)

which is the same as
- the first week of the year is the week containing the first Thursday
<<<
berücksichtigt.

Beispiel:
01.01.2004: Es wird KW 1 geliefert - richtig
04.01.2004: Es wird KW 2 geliefert - falsch (korrekt wäre 1)
31.12.2003: Es wird KW 53 geliefert - falsch (korrekt wäre 1)
31.12.2004: Es wird KW 53 geliefert - richtig
01.01.2005: Es wird KW 1 geliefert - falsch (korrekt wäre 53)
07.01.2005: Es wird KW 2 geliefert - falsch (korrekt wäre 1)
=> alle KW in 2005 sind um 1 nach vorne verschoben


Hier mal ein kleines Script zum Testen:

                Dim ws As NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   
   Dim ret As Variant
   
   Set ws = New NotesUIWorkspace   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   
   
   ret = Format$( doc.Datum(0), "ww")
   
   doc.KW = ret


Ergo: Nicht zu gebrauchen oder aufwendig anzupassen  

Hier der Vollständigkeit halber noch der Code mit dem es nach ISO 8601:1988 klappt:

Keysolutions


Matthias

Danke für den wichtigen Hinweis, Bernhard !

Vielleicht hast Du noch Lust, das auch dem Autor mitzuteilen (NotesFAQ@keysolutions.com), wenn nicht eh schon gemacht.
Merci,
Matthias