--Berechnung Zeitraum aktuelle Woche/nächste Woche --- #
# Variable mit akt. Datum belegen #
$date = jetzt;
# Wochentagszahl ermitteln #
$tagzahl = datum("$date", "Wochentagzahl");

$dz_wa = $tagzahl - 1 if $tagzahl ne 0; # Differenzzahl zum Wochenanfang wenn akt. Tag kein Sonntag #
# wenn Sonntag, dann Wochenanf. Woche -6 Tage (verg.Montag)#
$dz_wa = 6 if $tagzahl eq 0; # Differenzzahl zum Wochenanfang wenn akt. Tag Sonntag #

$dz_we = (7 - $tagzahl); # Differenzzahl zum Wochenende #
# Datumsausgabe des ersten Tages formatieren #
$wanf = datum("-$dz_wa", "Tag.Monat.Jahr"); # Wocheanfangstag #

$wend = datum("+$dz_we", "Tag.Monat.Jahr"); # Wochenendtag #

$az2 = $dz_we + 1; # Anfangstag nächste Woche (Montag)
# Ende sieben Tag später als der Wochenendtag aktuelle Woche #
$ez2 = $dz_we + 7; # Endtag nächste Woche (Sonntg)
# Wochenanfangstag für 2. Woche errechnen und formatiert in Var speichern #
$wanf2 = datum("+$az2", "Tag.Monat.Jahr");
# Wochenendtag für 2. Woche errechnen und formatiert in Var speichern #
$wend2 = datum("+$ez2", "Tag.Monat.Jahr");

$jar= datum ("jetzt","Jahr"); # Jahreszahl #
$mon = datum ("jetzt","Monat"); # Monatszahl #
$dag = datum ("jetzt", "Tag"); # Tageszahl (Datum)#
$n_jar = $jar + 1;
$n_mon = $mon + 1;

# Tagesdatum (dag_a und dag_e) - Suffix a für Anfang Zeitr., Suffix e für Ende Zeitr.#
# Belegung je nach Übergabewert Formularfeld za=  #
# Vorbelegung bei Erstaufruf bzw. Wechsel der Suchkriterien                          #
$jar_a = datum ("$fzeit_a", "Jahr") if $za ne "";
$jar_a = $jar if $za eq "";
$jar_e = datum ("$fzeit_e", "Jahr") if $za ne "";
$jar_e = $jar if $za eq "";

$mon_a = $mon if $za eq "";
$mon_e = datum ("$fzeit_e", "Monat") if $za ne "";
$mon_e = $mon if $za eq "";

$dag_a = $dag if $za eq "";
$dag_e = datum ("$fzeit_e", "Tag") if $za ne "";
$dag_e = 31 if $za eq "";