<perl>
$wunschdate="28.12.2009";
$Jahr=datum($wunschdate,"Jahr");				# wunschdate ist übergabeparameter
$_kw1="04.01.$Jahr";                            # 4.1 liegt immer in der ersten kw
$_tag=datum($_kw1,"Wochentagzahl")-1;           # Montag der 1ten kw
$kw1=datum("$_kw1-$_tag","intern");             # bestimmen (4.1-(Wochentag-1))
$_kw1ny="04.01.".($Jahr+1); # das gleiche fürs nächste Jahr

$kw1ny=datum("$_kw1ny-$_tagny","intern");
$holedatum=datum($wunschdate,"intern"); # datum zum vergeleich umschreiben

for ($i=$kw1; $i lt $kw1ny;$i=datum("$i+7","intern")) # alle Montage bestimen
{
       if ($holedatum ge $datum_merken && $holedatum lt $i)
       {
         $kw_anzeige=$kw;
       }
       $kw++;
       $datum_merken=$i;
}
$kw_anzeige||=53;
out "<b>Kalenderwoche: $kw_anzeige Datum:".datum($wunschdate,"kurz")."</b><br>";