<include src=i_pl_wochrech>
<perl>
###########
out '<form name="formular" action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" enctype="multipart/form-data" method="post">';
out '<input type=text name="dat=">';
out '<input type=reset> <input type=submit>';
out "</form>";

$vdat = "05.06.1981" if $dat eq "";

out "Tasgzahl ist $tagzahl <br>";
$vdag = datum("$vdat","Tag");
$vmon = datum("$vdat","Monat");
$vjar = datum("$vdat","Jahr");

out "\$mondiff ist $mondiff <br>";

out "\$vtagzahl ist $vtagzahl <br>";

out "\$vdat ist $vdat_lg <br>";

   {$o = "erster";
   $alter = $jar - $vjar -1;
   $dmon = 12+$mondiff-1;
   $ddag =$ld_mon[($mon-1)] - $vdag + $dag;
   }
   elsif ($vmon >= $mon && $vdag < $dag)
   {$o = "zweiter";
   $alter = $jar - $vjar;
   $dmon = $mondiff;
   $ddag = $dag - $vdag;
   }
   elsif ($vmon >= $mon && $vdag == $dag)
   {$o = "dritter";
   $alter = $jar - $vjar-1;
   $dmon = 12+ $mondiff;
   $ddag = $vdag - $dag;
   }
if ($o eq "")
   {$o="nicht durchlaufen"}
$gd = 1 if $vmon==$mon && $vdag == $dag;

out " Vergleichsdatum ist: $vdat<br>";
out " <b>Macht $alter Jahre , $dmon Monate, $ddag Tage.</b><br> ";
out "<span style=color:green;><h2>Geburtstagskind, herzlichen Glückwunsch!</h2></span>" if $gd ==1;
out "<br>------------------------------------------------------<br>";
</perl>