Wochen eines Jahres

[noknok]

Wie kann ich elegant bzw. überhaupt die Anzahl der Wochen eines Jahres ermitteln?

Mit anderen Worten, ich will mir eine Funktion
  numberOfWeeks($year)
implementieren, so dass z.b.
  numberOfWeeks(2010)==52
und
  numberOfWeeks(2009)==53.

Mittels
  $w = date ( "W", mktime(0,0,0,$month,$day,$year) );
kann ich die korrekte (normierte) Wochen-Nummer eines angegebenen Tages ermitteln. Aber
  $numOfWeeks = date ("W",mktime(0,0,0,12,31,$year));
löst mein Problem nicht, denn das gibt entweder "52", manchmal "53", aber oft auch "01" zurück.

Wer weiss eine elegante und korrekte Lösung?