# - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

$date = jetzt;
# -------- Wochentagszahl ermitteln ------- #
$tagzahl = datum("$date", "Wochentagzahl");
# -------- Datumsteile in Var schreiben ------- #
$jar= datum ("$date","Jahr"); $mon = datum ("$date","Monat");
$dag = datum ("$date", "Tag"); $stund = datum ("$date", "Stunde");
$min = datum ("$date", "Minute"); $sek = datum ("$date", "Sekunde");
# Sekunde, Minute, Tag und Monat mit Führenden Nullen #
$sek0 = length($sek) < 2 ? "0".$sek : $sek;
$min0 = length($min) < 2 ? "0".$min : $min;
$stund0 = length($stund) < 2 ? "0".$stund : $stund;
$dag0 = length($dag) < 2 ? "0".$dag : $dag;
$mon0 = length($mon) < 2 ? "0".$mon : $mon;
# -------- Sekundenwerte f. Tag/Stunde/Minute ------- #
$sek_dag = $dag* 24 * 60 * 60; $sek_stund = $stund * 60 * 60; $sek_min = $min * 60;
# -------- naechstes Jahr / naechster Monat / uebern. Jahr / uebern. Monat ------- #
$n_jar = $jar + 1; $un_jar = $n_jar+1; $n_mon = $mon + 1; $un_mon = $n_mon + 1;
# --------Anzahl Tage fuer 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;}
}
# Liste mit Anzahl der Tage pro Monat (Februar vor errechnet) - Zählung beginnt bei Null!!!)
@ld_mon=("31","$dz_feb","31","30","31","30","31","31","30","31","30","31");
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
# Liste mit Monatsnamen
@ln_mon = ("Januar","Februar","März","April","Mai","Juni","Juli","August","Septemper","Oktober","November","Dezember");
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
# Liste mit Tagesnamen
@ln_dag = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
# -------- Anzahl der Tage im aktuellen Jahr errechnen ------- #
foreach $i_ldmon (@ld_mon){
$djar = $djar + $i_ldmon; }
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
# Aktuelle Tageszahl im Jahr errechnen #
until ($i == $mon-1){
$dnr_jar = $dnr_jar + $ld_mon[$i];
$i++;}
$dnr_jar = $dnr_jar + $dag; # Tagnummer für aktuellen Tag im lfd. Jahr
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
# ........ Optionfeld für Minutenzahlen ........ #
sub opt_min
{# Syntax: &opt_min (minutenzahl) ohne Parameter aktueller Minute selected
# Parameterwerte werden selected in Optionfelder gesetzt
# ........ Optionfeld Minutenzahl ........ #
$_[0] eq "\"\"" ? "" : $_[0];  # wenn Doppelqoutes bei Leerwerten
my $_min = ($_[0] ne "" ? $_[0] : $min); my @lz_min = (0..60); my $_a_opt_min;
# ........ Optionfeld Minutenzahl bauen ........ #
   foreach (@lz_min){
    $_=(length($_)==1 ? "0$_" : $_); # fuerende Null bei einstelligen Werten einbauen (Danke Sander!)
      if ($_ eq $_min){ $_a_opt_min.="<option selected value=\"$_\">$_</option>"
      } else { $_a_opt_min.="<option value=\"$_\">$_</option>";
      }
   }
   return ($_a_opt_min);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# ........ Optionfeld für Stundenzahlen ........ #
sub opt_stund
{# Syntax: &opt_stund (Stundenzahl) ohne Parameter aktuelle Stunde selected
# Parameterwerte werden selected in Optionfelder gesetzt
$_[0] eq "\"\"" ? "" : $_[0];
my $_stund = ($_[0] ne "" ? $_[0] : $stund); my @lz_stund = (0..24); my $_a_opt_stund;
# ........ Optionfeld Tageszahl ........ #
   foreach (@lz_stund){
   $_=(length($_)==1 ? "0$_" : $_); 
      if ($_ eq $_stund) { $_a_opt_stund.="<option selected value=\"$_\">$_</option>";
      } else { $_a_opt_stund.="<option value=\"$_\">$_</option>";
      }
   }
   return ($_a_opt_stund);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# ........ Optionfeld für Tageszahlen ........ #
sub opt_dag
{# Syntax: &opt_dag (tagesdatum) ohne Parameter aktueller Tag selected
# Parameterwerte werden selected in Optionfelder gesetzt
$_[0] eq "\"\"" ? "" : $_[0];
my $_dag = ($_[0] ne "" ? $_[0] : $dag); my @lz_dag = (1..31); my $_a_opt_dag;
# ........ Optionfeld Tageszahl ........ #
   foreach (@lz_dag){
   $_=(length($_)==1 ? "0$_" : $_);
      if ($_ eq $_dag) { $_a_opt_dag.="<option selected value=\"$_\">$_</option>";
      } else { $_a_opt_dag.="<option value=\"$_\">$_</option>";
      }
   }
   return ($_a_opt_dag);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# ........ Optionfeld für Monatszahlen ........ #
sub opt_mon
{# Syntax: &opt_mon (monatszahl) ohne Parameter aktueller Monat selected
# Parameterwerte werden selected in Optionfelder gesetzt
# ........ Optionfled Monatszahl ........ #
$_[0] eq "\"\"" ? "" : $_[0];
my $_mon = ($_[0] ne "" ? $_[0] : $mon); # wurde was übergeben? wenn nicht aktueller Monat
my @lz_mon = (1..12); my $_a_opt_mon;
   foreach (@lz_mon){
   $_=(length($_)==1 ? "0$_" : $_); # Führende Null einbauen - Danke Sander
      if ($_ eq $_mon) { $_a_opt_mon.="<option selected value=\"$_\">$_</option>";
      } else { $_a_opt_mon.="<option value=\"$_\">$_</option>";
      }
   }
   return ($_a_opt_mon);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# ........ Optonfeld für Jahreszahlen ........ #
sub opt_jar
{# Syntax: &opt_jar (jahreszahl) ohne Parameter aktuelles Jahr selected
# Parameterwerte werden selected in Optionfelder gesetzt
$_[0] eq "\"\"" ? "" : $_[0];
my $_jar = ($_[0] ne "" ? $_[0] : $jar); my @lz_jar = (($jar-10)..($jar+10)); my $_a_opt_jar;
   # ........ Optionfeld Jahreszahl ........ #
   foreach(@lz_jar)
   {  $_=(length($_)==1 ? "0$_" : $_);
      if ($_ eq $_jar){
      $_a_opt_jar.="<option selected value=\"$_\">$_</option>";
      }else{
      $_a_opt_jar.="<option value=\"$_\">$_</option>";
      }
   }
   return ($_a_opt_jar);
}