Thema: Delphi Termine anzeigen

Einzelnen Beitrag anzeigen

Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
397 Beiträge
 
Delphi 10.4 Sydney
 
#1

Termine anzeigen

  Alt 23. Nov 2015, 11:56
Datenbank: Firebird • Version: 2.5.5 • Zugriff über: IBO
Hallo,

ich möchte alle Termine ermitteln die zwischen 2 abfragen (DateTime) liegen:

Mein SQL sieht so aus.

Delphi-Quellcode:
select
    count(P.patientennummer) as Anzahl
from events E
   inner join tbl_patient P on (E.patientennummer = P.patientennummer)
where
   (P.patientennummer = :Patientennummer)
   and
  (E.startzeit > :Date)
  and
  (E.FINISH <= :ENDDATUM)
Der Delphi Code sieht so aus:
Delphi-Quellcode:
    Termineqry.Close;
    Termineqry.ParamByName('Patientennummer').AsInteger := Patient1Qry.FieldByName('Patientennummer').AsInteger;
    Termineqry.ParamByName('Date').AsDateTime := Now;
    Termineqry.ParamByName('ENDDATUM').AsDate := (now + dmMain.ibqryOptionen.FieldByName('TERMINTAGE').AsInteger);
    Termineqry.Open;
Als Ergebnis werden leider auch Termine angezeigt die vor der Uhrzeit liegen.

Beispiel: Date := 23.11.201511:30:00

Angezeigt wird auch ein Termin der am 23.11.2015 um 8:00 Uhr ist. Das will ich nicht. Wie ist denn die Abfrage korrekt?
Walter Landwehr
Mfg

Walter

Geändert von Walter Landwehr (23. Nov 2015 um 12:02 Uhr)
  Mit Zitat antworten Zitat