[Home]WikiPatches/SwedishMonthNames

UseModWiki | WikiPatches | RecentChanges | Preferences

sub CalcDay {
  my ($ts) = @_;
  $ts += $TimeZoneOffset;
  my ($sec, $min, $hour, $mday, $mon, $year) = localtime($ts);
# return ("January", "February", "March", "April", "May", "June",
#         "July", "August", "September", "October", "November",
#         "December")[$mon]. " " . $mday . ", " . ($year+1900);
  return $mday . " " . ( "Januari", "Februari", "Mars", "April", "Maj", "Juni",
          "Juli", "Augusti", "September", "Oktober", "November",
          "December")[$mon] . " " . ($year+1900);
}

UseModWiki | WikiPatches | RecentChanges | Preferences
Edit text of this page | View other revisions | Search MetaWiki
Last edited September 18, 2003 9:13 am by 81.216.13.35 (diff)
Search: