Kalenderwochen ISO

Da die WEEK-Funktion in Papyrus amerikanisch und nicht ISO ist, habe ich versucht, im Internet was entsprechendes zu finden. Habe nur eine Excel-Formel gefunden, durch die ich aber nicht durchsteige. Wer kann mir weiter helfen?

=KÜRZEN((A1-WOCHENTAG(A1;2)-DATUM(JAHR(A1+4-WOCHENTAG(A1;2)) ;1;-10))/7)

(Die WEEK-Funktion in Papyrus zeigt für den 01.01.2006 die 2. Kalenderwoche an. Das kann ja auch nicht stimmen.)


Habe es geschafft, Excel zu entschlüsseln und für Papyrus umzuschreiben ;o). Da Papyrus andere Tagesziffern hat, als die Excelformel (Excel hat da 3 Typen; die Formel hat WOCHENTAG Typ 2), musste mit DAYOFWEEK getrickst werden, dass Mo=1 und Sonntag = 7 ist. Wer die Formel noch optimieren kann …

TRUNC

((TOTALDAYS(A1) -

(IF DAYOFWEEK(CTOD(A1) - 1) == ‘0’ THEN ‘7’ ELSE DAYOFWEEK(CTOD(A1) - 1)) -

TOTALDAYS(CTOD(STR(YEAR(CTOD(A1) + 4 - VAL((IF DAYOFWEEK(CTOD(A1) - 1) == ‘0’ THEN ‘7’ ELSE DAYOFWEEK(CTOD(A1) - 1))))) + (STR(‘0101’))) - 11))/7)

A1 ist hier das Feld fürs Datum.