# Erst mal die Datumsteilwerte in eigene Variablen schreiben
$date = jetzt;
# -------- 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");
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
sub opt_min
{# Syntax: &opt_min (minutenzahl) ohne Parameter aktueller Minute selected
# Parameterwerte werden selected in Optionfelder gesetzt
# ........ Optionfeld Minutenzahl ........ #
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

# ........ Optionfeld Tageszahl ........ #
   foreach (@lz_stund)
   { $_=(length($_)==1 ? "0$_" : $_); # fuerende Null bei einstelligen Werten einbauen (Danke Sander!)
      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

# ........ Optionfeld Tageszahl ........ #
   foreach (@lz_dag)
   {
      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 ........ #

   foreach (@lz_mon)
   {
      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

   # ........ Optionfeld Jahreszahl ........ #
   foreach(@lz_jar)
   {
      if ($_ eq $_jar){
      $_a_opt_jar.="<option selected value=\"$_\">$_</option>";
      }else{
      $_a_opt_jar.="<option value=\"$_\">$_</option>";
      }
   }
   return ($_a_opt_jar);
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#

out<<EOF;
.....
  <tr>
     <td colspan=2 class=klein>
        <span class=dunkel>

        <select class="muss" name="_Datum_Tag:=" size=1 class=select.weiss>
        <option>Tag</option>
        ${ \&opt_dag($s_dag) }
        </select> 
        <select class="muss" name="_Datum_Monat:=" size=1 class=select.weiss>
        <option>Monat</option>
        ${ \&opt_mon($s_mon) }
        </select> 
        <select class="muss"  name="_Datum_Jahr:=" size=1 class=select.weiss>
        <option>Jahr</option>
        ${ \&opt_jar($s_jar) }
        </select>
     </td>
     <td colspan=2 class=klein valign=top>
        <span class=dunkel>Zeit Beginn: <br>
        <select class="muss" id="_Datum_Stunde:=" name="_Datum_Stunde:=" size=1>
        <option value="">Stunde</option>
        ${ \&opt_stund($s_stund) }
        </select>
        <select class="muss" id="_Datum_Minute:=" name="_Datum_Minute:=" size=1>
        <option value="">Minute</option>
        ${ \&opt_min($s_min) }
        </select>
        </span>
     </td>
  </tr>

$anz_opt_dag = &opt_dag();
Beachten musst du, dass die Feldwerte für ein Datumsfeld "auseinandergepflückt" werden müssen - in der Art _Feldname_Tag:= (oder wenn dus nicht gleich in den Put-Hash haben willst _Feldname_Tag= hier musst du dann aber beim Speichern oder Ändern die Werte noch an die richtige Stelle schreiben - ist etwas komplexer als mit Feldname:=, gibts aber auch ne elegante Lösung für - zumal man mit mod keine Datenfeldinhalte löschen kann und mittels chg bei nicht übergebene Feld-Variablen-Inhalten die Feldinhalte von vorhandenen Datensätzen einfach gelöscht werden... - ich denk mal, dass das von Christoph in der lang erwarteten neuen Version richtig gut gelöst sein wird.... ;-)
Im obigen Beispiel wird vorher aus einer DB ein Datensatz gelesen und die Inhalte des Datumsfeldes in seine Einzelteile in ner neuen Variablen $s_"Datumsteil" gespeichert und dann als selected der jeweilige Wert genommen (falls er vorhanden ist) - das ganze deshalb, um ein Formular nur einmal zu bauen und je nach Parametern im Templateaufruf entweder das aktuelle Datum selected zu setzen (bei Neueingabe eines Datensatzes) oder aber aus vorhandenen Daten, wenn diese geändert werden sollen....