Ayuda sobre manejo de fechas

[francodelphi]

uses DateUtils;
var
var
OcupadaHasta: TDateTime;
FechaConsulta: TDateTime;
begin
OcupadaHasta:= StrToDateTime('05/01/2011 10:00:00 a.m.'); // fecha hasta
FechaConsulta:= StrToDateTime('05/01/2011 09:01:00 a.m.'); // fecha a consultar
if CompareDateTime(OcupadaHasta, FechaConsulta) = -1 then
Caption:= 'LIBRE'
else
Caption:= 'OCUPADA';

Lo que no entiendo , es que aca ustedes le asignan una fecha . Yo tengo que tomar referencia con los 2 campos de fecha de la tabla ya cargadas , y ahi que el sistema me diga si esta ocupada o no..osea, como levanto las fechas de la tabla de la bd?, mas arriba puse los campos de mi bd..y una mas, si mi cabaña esta ocupada del 10/10/2011 al 15/10/2011 y viene otra persona y me la quiere alquilar del 11/10/2011 al 14/10/2011 como hago el control para que me diga que esta ocupada?

[[oscarac]]

eso te explicaba en post anteriores

pseudocodigo:

Código Delphi [-]
 
Fecha := FechaHasta
while FechaHasta >= Fecha do
begin
  qrybuscarfechaenTabla.parameters.parambyname('fecha').value := fecha
  qrybuscarfechaenTabla.open
  if qrybuscarfechaenTabla.reccount <> 0 Then
   label.caption := 'ocupada'
  else
   label.caption := 'Libre'
  Inc (fecha)
end

[ecfisa]

Hola.

lo que le planteas, no te da una fecha exacta de cuando este libre la cabaña

Tenés toda la razón, no se me ocurrió pensar que podrían reservar con fecha anterior a una reserva..., pero no veo la necesidad de recorrer las fechas, creo que podría hacer algo como:

Código Delphi [-]
function TForm1.CabaniaOcupada(Numero: string; Fecha: TDateTime): Boolean;
begin
  with qyCabania do
  begin
    SQL.Text:= 'SELECT * FROM CABANIAS WHERE NUMERO = :NUM';
    ParamByName('NUM').AsString:= Numero;
    Open;
    Result:= (Fecha >= FieldByName('OCUPADADESDE').AsDateTime) and
             (Fecha <= FieldByName('OCUPADAHASTA').AsDateTime);
    if IsEmpty then
        ShowMessage('cabaña inexistente');
    Close;
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
...
 if CabaniaOcupada('001', DateTimePicker1.DateTime) then
   ShowMessage('OCUPADA')
  else
   ShowMessage('LIBRE');

Un saludo.