| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
<perl>
$dag = datum("$startdatum","Tag0"); $mon = datum("$startdatum","Monat0");
get "_Geburtstag_Monat==$mon _Geburtstag_Tag==$dag","db","user";
out "Wir gratulieren heute zum Geburtstag:<br>" if $_amount_query > 0;
while(get_next("user")){
out out "<font size=1>$Vorname $Name</font>";
}
| Alle Einträge zum Thema: | Zur Liste |
$gebtag=datum"$startdatum", "Tag.Monat"; get "Geburtstag==$gebtag", "db", "user";
{out "<font size=1>$Vorname $Name</font>";}
<perl>
$dag = datum("$startdatum","Tag0"); $mon = datum("$startdatum","Monat0");
get "_Geburtstag_Monat==$mon _Geburtstag_Tag==$dag","db","user";
out "Wir gratulieren heute zum Geburtstag:<br>" if $_amount_query > 0;
while(get_next("user")){
out out "<font size=1>$Vorname $Name</font>";
}
get "_Geburtstag_Monat==$mon _Geburtstag_Tag==$dag","../../user/mitglieder","user";
$dag und $ mon werden korrekt befüllt ...
<???>
<perl>
# Einzelteile des aktuellen Datums in Variablen schreiben
$dag = datum("$startdatum","Tag"); $mon = datum("$startdatum","Monat"); $jar = datum("$startdatum","Jahr");
# Alle DS holen, sortiert nach Geburtstagsdatum in absteigender Reihenfolge (älteste zuerst)
get "Geburtstag==* sort=-","../../user/mitglieder","user";
while(get_next("user")){
# Einzelteile des Geburtstagsdatums des jeweils aktuelle DS in lok. Vars schreiben
my $vdag = datum("$Geburtstag","Tag"); my $vmon = datum("$Geburtstag","Monat); my $vjar = datum("$Geburtstag","Jahr");
if ($vmon == $mon && $vdag == $dag){# wenn Monat und Tag gleich aktuellem sind
my $alter = $vjar - $jar; # Alter für aktuellen DS ausrechnen
# Ausgabe in Var "kumulativ" schreiben (Punkt Verkettet mit vorh. Inhalt)
$geburtstagskinder .= "$Vorname $Name zum $alter.<br>" ;
$cnt_geburtstagskinder++; # Zähler für gefundene Geburtstagskinder erhöhen
}
if ($cnt_geburtstagskinder > 0){ # wenn Geburtstagskinder vorh. ausgeben
out "Wir gratulieren heute folgenden $cnt_geburtstagskinder Usern zum Geburtstag:<br>";
out "<font size=1>$geburtstagskinder</font>";
}
</perl>
| Liste der Einträge von 28951 bis 29101: | 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 |