Datum zu KW Normierung

[ibp]

Hallo, stehe gerade ziemlich auf dem Schlauch, das verflixte Jahr 2012 macht mir zu schaffen. Hintergrund das Jahr hat 2 x die KW 52 und 2 x KW 1

Ich suche eine mathematische Berechnung anhand der ich mittels eines Datums aus einem Bereich die Nummer 1...54 zuordnen kann.

Der Bereich kann von 1 Woche bis max. 1 Jahr betragen.

also nehmen wir an es ist der Bereich 5.2.2013 bis 29.3.2013 gewählt worden...

5.2. ist die KW 6 diese hat dann die Zuordnung 1
...
29.3. ist die KW 13 hat dann die Zuordnung 8

So weit so gut. Wenn ich nun das Jahr 2012 betrachte und den Zeitraum 1.1.2012-31.12.2012 wähle:

1.1.2012 KW 52 > 1
...
31.12.2012 KW 1 > 54


hat da jemand eine Idee?

Meine bisherige war eine Liste zu generieren anhand der die Zuordnung identifiziert wurde und zwar so...
liste[1..54] := YearOf(Date)*10000 + MonthOf(Date)*100 + WeekOf(Date)

das schlägt aber immer dann fehl wenn KW in verschiedenen Monaten vorhanden sind.