Copyright 2001 by Trevize (Wladimir Palant)
Quellcode
- sub toDate
- {
- my($time) = @_;
-
- my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time+$time_distance*3600);
-
- $mon++;
- $year = 1900 + $year;
-
- return sprintf("%.2i.%.2i.%.4i %.2i:%.2i:%.2i",$mday,$mon,$year,$hour,$min,$sec);
- }