<perl>

while(get_next("programm"))
{
$kw=0;
$wunschdate = $VON;

$_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))

$_tagny=datum($_kw1ny,"Wochentagzahl")-1;
$kw1ny=datum("$_kw1ny-$_tagny","intern");

## Kalenderwochen des Jahres zählen

{$kw=1;out "<b>Kalenderwoche:$kw Datum:".datum($wunschdate,"lang")."</b>YYYYY<br>";}
 
if ( $holedatum lt $kw1)#Klingt die letzte KW des alten Jahres erst im neuen Jahr aus? !!! $kw1 hat soeben einen neuen Wert für das laufende Jahr angenommen!!!
{out "<b>Kalenderwoche:$kw_merker Datum:".datum($wunschdate,"lang")."</b>XXXXX<br>";}

{
       

 if ($holedatum ge $datum_merken && $holedatum lt $i)
       {
     out "<b>Kalenderwoche:$kw Datum:".datum($wunschdate,"lang")."</b><br>";$kw_merker = $kw;# brauch ich zum Jahreswechsel
       }
       $kw++;
      
       $datum_merken=$i;

}