</perl>
# Tage berechnen
$start=datum("24.2.2001","Jahr.Monat0.Tag0");
$tage=1;
$heute=datum("-$tage","Jahr.Monat0.Tag0");

 while($start lt $heute){
  $tage += 360;
  $heute=datum("-$tage","Jahr.Monat0.Tag0");
 }
 $tage-=360;
 $heute=datum("-$tage","Jahr.Monat0.Tag0");
 while($start lt $heute){
  $tage += 30;	
  $heute=datum("-$tage","Jahr.Monat0.Tag0");
 }
 $tage-=30;
 $heute=datum("-$tage","Jahr.Monat0.Tag0");
 while($start lt $heute){
  $tage=$tage+1;
  $heute=datum("-$tage","Jahr.Monat0.Tag0");
 }
}
</perl>