sub _opt_min
{my $_min = ($_[0] ne "" ? $_[0] : $min); my @lz_min = (0..60); my $_a_opt_min;   
my $_min = ($_[0];
   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);
}

sub _opt_stund
my $_stund = ($_[0] ne "" ? $_[0] : $stund); my @lz_stund = (0..24); my $_a_opt_stund; # ........ Optionfeld Tageszahl ........ #
   foreach (@lz_stund)
   { $_=(length($_)==1 ? "0$_" : $_); # fuerende Null bei einstelligen Werten einbauen (Danke Sander!)
   ($_ eq $_stund ? $_a_opt_stund.="<option selected value=\"$_\">$_</option>" : $_a_opt_stund.="<option value=\"$_\">$_</option>"); }
    return ($_a_opt_stund);
}