<perl>
sub tsToDay(){ # ts --> str'Tag0.Monat0.Jahr' auch vor 1970 !!!
  if($_[0] ne ""){
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime($_[0]);
    $mon += 1; $year += 1900;
    return(soutf('%02d.%02d.%04d', $mday, $mon, $year));}}
</perl>