Help for this page

Select Code to Download


  1. or download this
    $weekNum = POSIX::strftime("%V", gmtime time);
  2. or download this
    $weekNum = UnixDate(ParseDate("today"), "%W");
  3. or download this
    # Returns the week number of NOW
sub currentWeekNumber
...
  return 366 unless $_[0] % 4;
  return 365;
}