Help for this page

Select Code to Download


  1. or download this
    use POSIX qw( floor strftime );

...
$mon  = $mon % 12;

print(strftime("%Y-%m", 0,0,0, $day,$mon,$year), "\n");
  2. or download this
    use POSIX qw( floor strftime );

...
$mon  = $mon % 12;

print(strftime("%Y-%m", 0,0,0, $day,$mon,$year), "\n");