Help for this page

Select Code to Download


  1. or download this
        $date = "03/10/2004";
        my @d = split/\\/, $date;
        #                Second,  Min , Hour , Day  , Month, Year
        $epoc = timelocal(0, 0, 0, $d[1], $d[0], $d[2]);
    
  2. or download this
    ($ss, $mm, $hh, $d, $mon, $yr) = localtime($epoc);
    
  3. or download this
    printf("NewDate: %02d/%02d/%04d\n", $mon+1, $d, $yr+1900);