cgicorner.ch

Informationen rund um Perl/CGI

Sie sind hier: Home > Knowledge Base > Wochentag aus einem Datum ermitteln

Wochentag aus einem Datum ermitteln

Wie kann man aus einem Datum den Wochentag ermitteln?

Dazu verwendet man am besten das Modul use Time::Local;, welches in jeder Perl Distribution enthalten sein sollte.

Folgendes Beispiel sollte eigentich als Lösung reichen. Dabei wird der Wochentag in einer Subroutine &Wochentag errechnet, welche den Wochentag zurückgibt.

use Time::Local;
$date="01.01.2002";
print "Der $date ist ein ";
print &Wochentag("$date");

sub Wochentag {
  my ($tag, $monat, $jahr, $time);
  my @Wochentage=qw(Sonntag Monatag Dienstag Mittwoch Donnerstag Freitag Samstag);
  ($tag, $monat, $jahr)=split(/\./, @_[0]);
  $time = timelocal(0, 0, 0, $tag, $monat-1, $jahr);
  return @Wochentage[(localtime($time))[6]];
}

Autor: Jürg Sommer, knowledge@cgicorner.ch

[ zurück ]