Altersangabe zu einem bestimmten Stichtag in einer Schild-Tabelle

[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.

[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.

[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.

[A.Löser]

Herr Maßmann,
hier ist der Report angehängt mit der Änderung nach Ihrem Vorschlag.

[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