| Kalenderwochen ISO [Beitrag #6492] |
So, 13 Juni 2010 22:32 |
HeHo
Beiträge: 125 Registriert: Dezember 2008 Ort: Hannover
|
Senior Member |
|
|
Excelformel: =KÜRZEN((A1-WOCHENTAG(A1;2)-DATUM(JAHR(A1+4-WOCHENTAG(A1;2)) ;1;-10))/7)
Habe es geschafft, die Excelformel dafür 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.
|
|
|
|