<perl>
out datum ("31.09.2009","time");
out datum ("31.09.2009+1","intern");
</perl>

sub datum_check
{
    my $x = shift;
    my $count=0;
    while ($count<3 && datum("$x","time")<1) ## 3 da maximal 4 Schritte von 31 auf 28 
    {
          $x=(datum("$x","Tag")-1).".".datum("$x","Monat.Jahr, Stunde:Minute:Sekunde");
          $count++;
    }
    return $x;
}