Datenbankabfrage auf Ereignisse zwischen Datum 1 und Datum 2

[Jens Hartmann]

Zitat von mkinzler:

Du könntest den Wert aber aus den beiden Werten zusammensetzen

Ich weiß, habe ich auch gemacht, ich bekomme es aber nicht ohne Umwandlung in einen String hin. Diesen muss ich dann ja auch wieder in ein DateTime wandeln. Und ich finde es irgendwie nicht sauber gelößt, einen Wert zweimal zu wandeln.

Delphi-Quellcode:

var
  DatumZeit1 : String;
  DatumZeit2 : String;
begin
  if cbSystemTime.Checked then
  begin
    DatumZeit1 := DateToStr(DTPStart.date)+' '+TimeToStr(dtpTimeStart.Time);
    DatumZeit2 := DateToStr(DTPEnd.date)+' '+TimeToStr(dtpTimeEnd.Time);
    ReadDataSystemDateTime(StrToDateTime(DatumZeit1),StrToDateTime(DatumZeit2), 'MB100');
  end

Gruß Jens

[mkinzler]

Ich meinte beim Einfügen
DateTime := Trunc(date) + Frac( Time);

[Jens Hartmann]

Danke,

ich habe es jetzt so gelößt...

Delphi-Quellcode:

ReadDataSystemDateTime(Trunc(DTPStart.date) + Frac(dtpTimeStart.Time),
  Trunc(DTPEnd.date) + Frac(dtpTimeEnd.Time), 'MB100');

Gruß Jens