Überschneidung von Datumsbereichen finden?

[Sharky]

Hai,

ich programmiere gerade ein Raumbuchungssystem. In der Tabelle mit den Buchungen habe ich zwei Datumswerten (von , bis).
Wenn jetzt eine neue Buchung für diesen Raum gemacht wird möchte ich prüfen ob der Raum zu diesem Zeitpunkt schon belegt ist.
Leider stehe ich total auf dem Schlauch heute Morgen :stupid:

z.B.:

Raum 1 ist gebucht von 06.05.2004 10:30 bis 08.05.2004 18:00

Wenn jetzt jemand den Raum von 07.05.2004 12:00 bis 09.05.2004 17:30 buchen möchte muss er eine Meldung bekommen das der Raum zu diesem Zeitpunkt schon belegt ist.

• Datenbank: mySQL
• Zugriff: Zeos

Kann mir jemand auf die Sprünge helfen? Danke :-D

[Robert_G]

Ist etwas früh , aber vielleicht geht das:

SQL-Code:

SELECT *
FROM   DeineTabelle t
WHERE  t.StartDTM < :i_EndDTM And t.EndDTM > :i_StartDTM

[alcaeus]

Ich hab sowas für meine Autovermietung gebraucht...ich habs aber im Programm abgefragt und nicht in SQL
Also:
IntStart1 = 06.05.2004 10:30
IntEnde1 = 08.05.2004 18:00
IntStart2 = 07.05.2004 12:00
IntEnde2 = 09.05.2004 17:30

Die Abfrage hat bei mir so gefunzt:

Delphi-Quellcode:

if (IntStart1 in [IntStart2..IntEnde2]) or (IntStart2 in [IntStart1..IntEnde1]) then
  ShowMessage(Intervallüberlappung');

Ich hab nur der Kürze wegen in verwendet, in Delphi funzt das nicht, da TDateTime ja Double ist. Deshalb musst du mit >= und <= arbeiten.

Dadurch wird abgefangen ob Int1 in Int2 liegt und umgekehrt
[edit]Noch eine Erklärung und den Code vervollständigt ;)[/edit]

[MarkusB]

Hi!

Ich würde das so versuchen:

SQL-Code:

...
where BuchungStart between NeueBuchungStart and NeueBuchungEnd
   or BuchungEnd   between NeueBuchungStart and NeueBuchungEnd
...

Viele Grüße
Markus :gruebel:

[Luciano]

Hi...

Das mit dem Kleiner und Größer müßte eigentlich "kleiner gleich" und "größer gleich" heißen, wenn ich mich auf die schnelle nicht irre

Delphi-Quellcode:

  bisDatum := DateTimePicker8.Date;
  vonDatum := DateTimePicker7.Date;

  Anfrage1 := (' SELECT * FROM RESERVIE '+
               ' WHERE (ANREISE >= '+QuotedStr(DateToStr(vonDatum))+
               ' AND '+
               ' ANREISE >= '+QuotedStr(DateToStr(bisDatum))+')'+
               ' OR '+
               ' (ABREISE >= '+QuotedStr(DateToStr(vonDatum))+
               ' AND '+
               ' ABREISE <= '+QuotedStr(DateToStr(bisDatum))+')'+
               ' ORDER BY ANREISE, ABREISE ');

Das ist ein Reservierungsplan... Listet mir alle An- und Abreisen zwischen dem ausgewählten Datum auf. Sollte eigentlich auch bei dir funktionieren!

Greets

Luciano

[Sharky]

Danke euch,

ich werde es gleich einmal testen. Aber vorher brauche ich einen Kaffee. :roteyes:

[Robert_G]

@Luciano
Natürlich hast du recht, ABER ...

Delphi-Quellcode:

  ...
  ' ANREISE >= '+QuotedStr(DateToStr(bisDatum))+')'+
  ...

.. sowas ist nicht nur generell Unsinn, mit einem Datumsfeld gehen diese Stringbasteleien auch noch mit 100%-iger in die Hose, wenn auch nur einer der Clients andere Regionaleinstellungen als der DB-Server hat.

Also:

SQL-Code:

SELECT *
FROM   DeineTabelle t
WHERE  t.StartDTM <= :i_EndDTM And t.EndDTM >= :i_StartDTM

[Sharky]

Ich denke die Methode von Markus sieht ganz gut aus und funktioniert zumindest via MySQL-Control-Center wunderbar.

Delphi-Quellcode:

begin
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM buchungen';
  Query1.Sql.Add ('WHERE ((BuchungStart BETWEEN :NeueBuchungStart and :NeueBuchungEnd)');
  Query1.Sql.Add ('OR (BuchungEnd BETWEEN :NeueBuchungStart and :NeueBuchungEnd))';
  Query1.Sql.Add ('AND (raum_id=:raum_id) AND (buchungs_id <> :buchungs_id)');
  Query1.ParamByName ('NeueBuchungStart').AsDateTime := start;
  Query1.ParamByName ('NeueBuchungEnde').AsDateTime := ende;
  Query1.ParamByName ('raum_id').AsInteger := raum_id;
  Query1.ParamByName ('buchungs_id').AsInteger := buchungs_id;
  Open;
end;

raum_id ist die ID des Raumes den ich buchen möchte.
buchungs_id brauche ich um, bei einer änderung der Buchung, nicht die eigene zu finden.

[Luciano]

@Robert_G

Da hast du recht, mit den String.... :idea: für mehrere Clients ist das nicht gerade von Vorteil. Das Programm läuft bei mir allerdings nur auf MSDE lokal ohne andere Clients.

Greets


Luciano

[MarkusB]

Hallo nochmal!

Ich habe festgestellt, dass die von mir vorher vorgeschlagene Methode nicht alle möglichen Fälle abdeckt. :oops:
Die folgende Version sollte „wasserdicht“ sein:

SQL-Code:

where ( 
        (BuchungStart between NeueBuchungStart and NeueBuchungEnd) 
        or 
        (BuchungEnd   between NeueBuchungStart and NeueBuchungEnd)
        or
        (BuchungStart <= NeueBuchungStart and BuchungEnd >= NeueBuchungEnd) 
      )

Viele Grüße
Markus
:gruebel: