# Anzahl Tage für Monat hinterlegen - Schaltjahr berechnen (Anzahl Tage Februar)#
#################################################################################
if ($jar % 100 == 0)
{
  if ($jar % 400 == 0)
   {
   $dz_feb = 29;
   } else
   {
   $dz_feb = 28;
   }
}
else
{
if ($jar % 4 == 0)
   {
   $dz_feb = 29;
   }
else
  {
  $dz_feb = 28;
  }
}
# Anzahl der Tage in den einzelnen Monaten des Jahres #
@ld_mon=("31","$dz_feb","31","30","31","30","31","31","30","31","30","31");

foreach $i_ldmon (@ld_mon)
{$djar = $djar + $i_ldmon}

{
$dnr_jar = $dnr_jar + $ld_mon[$i];
$i++}
$dnr_jar = $dnr_jar + $dag; # Tagnummer für aktuellen Tag im lfd. Jahr