baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl> $wunschdate="28.12.2009"; $Jahr=datum($wunschdate,"Jahr"); # wunschdate ist übergabeparameter $_kw1="04.01.$Jahr"; # 4.1 liegt immer in der ersten kw $_tag=datum($_kw1,"Wochentagzahl")-1; # Montag der 1ten kw $kw1=datum("$_kw1-$_tag","intern"); # bestimmen (4.1-(Wochentag-1)) $_kw1ny="04.01.".($Jahr+1); # das gleiche fürs nächste Jahr
$kw1ny=datum("$_kw1ny-$_tagny","intern"); $holedatum=datum($wunschdate,"intern"); # datum zum vergeleich umschreiben
for ($i=$kw1; $i lt $kw1ny;$i=datum("$i+7","intern")) # alle Montage bestimen { if ($holedatum ge $datum_merken && $holedatum lt $i) { $kw_anzeige=$kw; } $kw++; $datum_merken=$i; } $kw_anzeige||=53; out "<b>Kalenderwoche: $kw_anzeige Datum:".datum($wunschdate,"kurz")."</b><br>";
Alle Einträge zum Thema: | Zur Liste |
<perl> $wunschdate="28.12.2009"; $Jahr=datum($wunschdate,"Jahr"); # wunschdate ist übergabeparameter $_kw1="04.01.$Jahr"; # 4.1 liegt immer in der ersten kw $_tag=datum($_kw1,"Wochentagzahl")-1; # Montag der 1ten kw $kw1=datum("$_kw1-$_tag","intern"); # bestimmen (4.1-(Wochentag-1)) $_kw1ny="04.01.".($Jahr+1); # das gleiche fürs nächste Jahr
$kw1ny=datum("$_kw1ny-$_tagny","intern"); $holedatum=datum($wunschdate,"intern"); # datum zum vergeleich umschreiben
for ($i=$kw1; $i lt $kw1ny;$i=datum("$i+7","intern")) # alle Montage bestimen { if ($holedatum ge $datum_merken && $holedatum lt $i) { $kw_anzeige=$kw; } $kw++; $datum_merken=$i; } $kw_anzeige||=53; out "<b>Kalenderwoche: $kw_anzeige Datum:".datum($wunschdate,"kurz")."</b><br>";
Liste der Einträge von 7201 bis 7351: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |