Zitat:
Dadurch wird aber die Abfrage nicht schneller gestaltet oder?
In diesem Teil nicht, ist aber übersichtlicher
Ich würde noch
StrToDate(FormMain.QueryUpdate.FieldByName('announcement_date').AsString)
durch
FormMain.QueryUpdate.FieldByName('announcement_date').AsDate
oder noch besser
FormMain.QueryUpdate.FieldByName('announcement_date').Value
ersetzen.
Zudem könnte man die Abfrage schon auf announcement_date > Datum einschränken.
U.U könnte auch die
Db Struktur geändert werden ( Warum mehrere gleiche Tabellen?; sieht für mich so aus)