<perl>
# --- Datumsvariablen festlegen ---#
$akt_tag= datum("jetzt","Tag");
$akt_monat=datum("jetzt","Monat");
$akt_jahr=datum("jetzt","Jahr");

get "monat==$akt_monat","monat_statistik", "monatdatensaetze";

while(get_next("tagdatensaetze"))
{
if ($monat<$akt_monat){del "Id==$Id","tag_statistik";}
}

{
if ($tag<$akt_tag) {put ["tag", "$akt_tag", "monat", "$akt_monat", "Counter", "1"],"tag_statistik";}
else {mod "tag==$akt_tag",["Counter","$Counter"+1],"tag_statistik";}
}

while(get_next("monatdatensaetze"))
{
if ($monat<$akt_monat) {put ["monat", "$akt_monat", "jahr", "$akt_jahr", "Counter", "1"],"monat_statistik";}
else {mod "monat==$akt_monat",["Counter","$Counter"+1],"monat_statistik";}
}
</perl>