Kritik und Regel für Wochenzählung

[Patrick Andrieu]

...bevor der Thread verschwindet... ;)

Und wie oft: Ein Beitrag, zwei Anliegen!

1. Das Modul wurde etwas geändert, unsinnige Methode 'raus, neue 'rein, etc. Jetzt möchte ich die erfahreneren Perler wie Siechfred, Struppi, Alexander uem hier um Code-Kritik bitten (wenn ich schon dabei bin, viel zu lernen, dann richtig)!

Was sieht seltsam aus, was läßt sich verkürzen, ohne unwartbar zu werden?

Zwischenstand: http://www.atomic-eggs.com/cgi-bin/date_today2.pl

2. Nach welchen Regeln wird die aktuelle Woche des Jahres festgelegt? Ich stelle eben fest, dass Date::Calc wohl falsch ansetzt, denn:

C:>perl -w

use Date::Calc qw/:all/;  
$t = Week_of_Year(Today);  
print $t;

^Z
25
C:>perl -w

use Date::Calc qw/:all/;  
$t = Week_Number(Today);  
print $t;

^Z
25

Sowohl »Week_of_Year« als »Week_Number« liefern 25 zurück, obwohl wir laut meinem Kalender die 24. Woche haben.

Also... wie viele Tage muss die letzte Woche eines Jahres haben, um als 53. Woche zu zählen, bzw. anders rum, wie viele Tage vor dem ersten Montag muss es geben, damit die diese Tagen als 1. Woche eines neuen Jahres zählen? Kurzum: wie lautet die Regel?

Viele Grüße aus Frankfurt/Main,
Patrick