Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]5883[/thread]

Den Wochentag eines beliebigen Datums ermitteln..: ..



<< |< 1 2 >| >> 15 Einträge, 2 Seiten
steinwolf
 2003-11-06 13:21
#69808 #69808
User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]
Hi,
wie ermittle ich den Wochentag eines beliebigen Datums?
Sinn und Zweck der Geschichte soll es sein, einen Kalender zu erstellen, der einen gesamten Monat ausgibt. Die einzige Möglichkeit, habe ich mir gedacht, ist die, für jeden Tag das Datum zu nehmen und für diesen einen Timestamp zu erstellen von dem ich nun NUR den Wochentag ermittelt haben will..
die numerischen Werte werd ich dann schon selber in Montag bis Freitag umbenennen..*g*

in etwa so??
$weekday = localtime("hier müsste der Timestamp des Datums hinein oder?")[6];

mfg stein
"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum
havi
 2003-11-06 13:24
#69809 #69809
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Vielleicht hilft dir das hier: http://www.fabiani.net/cgi-bin/calendar.cgi weiter!

Frag doch einfach mal den Autor :)

Gruss
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
steinwolf
 2003-11-06 13:39
#69810 #69810
User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]
Hoffentlich. Der Autor ist doch auch im Forum vertreten!?
Danke havi
"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum
havi
 2003-11-06 13:40
#69811 #69811
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Na klar, der Autor ist Strat!!!

Gruss
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
format_c
 2003-11-06 13:41
#69812 #69812
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
MMh *tipptipptipp*
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use Time::Local;
my @days = qw/So Mo Di Mi Do Fr Sa/;
my $date = '12.11.2003';
my @date = split /\./,$date;

my $wday = $days[(localtime(timelocal(0,0,0,$date[0],$date[1]-1,$date[2]-1900)))[6]];

print "$date ist ein $wday\n";
_ _ END _ _
12.11.2003 ist ein Mi


So in etwa.

Gruß alex
Effizente Linuxshell
steinwolf
 2003-11-06 13:47
#69813 #69813
User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]
hm...
habs verstanden, aber was genau macht "timelocal"??
danke

mfg stein
"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum
format_c
 2003-11-06 13:57
#69814 #69814
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Das ist die Umkehrung von localtime.

perldoc Time::Local

Ist bei den Standardmodulen dabei.

Gruß Alex
Effizente Linuxshell
havi
 2003-11-06 13:58
#69815 #69815
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Code: (dl )
1
2
perldoc Time::Local
perldoc -m Time::Local


Gruss
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
havi
 2003-11-06 13:59
#69816 #69816
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
@format_c: Du warst mir einfach zu schnell...
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
format_c
 2003-11-06 14:02
#69817 #69817
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
was macht den der switch m?
Effizente Linuxshell
<< |< 1 2 >| >> 15 Einträge, 2 Seiten



View all threads created 2003-11-06 13:21.