Seite 2 von 2
Re: Altersangabe zu einem bestimmten Stichtag in einer Schild-Tabelle
Verfasst: Dienstag 28. Januar 2020, 00:08
von A.Löser
Herr Maßmann,
da haben Sie recht.
Aber hier kommt eine Liste, die alle Varianten (>= <= =) auf Nachfrage berücksichtigt.
Testen Sie die doch mal.
Re: Altersangabe zu einem bestimmten Stichtag in einer Schild-Tabelle
Verfasst: Dienstag 28. Januar 2020, 12:00
von W.Maßmann
Hallo Herr Löser,
ein interessanter, vielseitiger Report.
Als "Fehler" ist mir nur aufgefallen, dass auch hier das oben angesprochene = in der function Alter noch fehlt.
Re: Altersangabe zu einem bestimmten Stichtag in einer Schild-Tabelle
Verfasst: Dienstag 28. Januar 2020, 17:07
von wschrewe
So, ich habe noch etwas gebastelt und bin zu der folgenden Lösung gekommen: (das ist der komplette RAP-Code aus dem Report des Themenstarters)
Code: Alles auswählen
function AlterZumStichtag(Const aStichtag, aGebDat: Date): integer;
begin
Result := Round((aStichtag - aGebDat) / 365.25);
end;
--------------------------------------------------------------------------------
procedure Variables;
var
Stichtag : Date;
ZielAlter : integer;
begin
end;
--------------------------------------------------------------------------------
procedure DetailBeforePrint;
begin
Detail.Visible:=AlterZumStichtag(Stichtag, Schueler['Geburtsdatum']) >= ZielAlter;
end;
--------------------------------------------------------------------------------
procedure ReportOnInitializeParameters(var aCancel: Boolean);
var
lAlterStr : String;
begin
Stichtag:=StrToDate(PickDatum('Stichtag',DateToStr(CurrentDate)));
lAlterStr:=StringInput('Alter', '18');
ZielAlter:=StrToIntDef(lAlterStr,0);
aCancel:=ZielAlter = 0;
end;
--------------------------------------------------------------------------------
Die Bestimmung des Alters zum Stichtag ist etwas einfacher, finde ich.
Re: Altersangabe zu einem bestimmten Stichtag in einer Schild-Tabelle
Verfasst: Dienstag 28. Januar 2020, 17:21
von A.Löser
Herr Maßmann,
hier ist der Report angehängt mit der Änderung nach Ihrem Vorschlag.
Re: Altersangabe zu einem bestimmten Stichtag in einer Schild-Tabelle
Verfasst: Samstag 1. Februar 2020, 15:23
von Christophorus
Herzlichen Dank an alle für die engagierte Hilfestellung.
Der Report von Herrn Löser erfüllt, denke ich, die von der Bezirksregierung gestellten Anforderungen.
Mit freundlichen Grüßen
Dr. Burkhard Schwier