[ecfisa]

Hola francodelphi.

Para consultar si está ocupada sólo es necesario evaluar la fecha hasta.

Un ejemplo:

Código Delphi [-]
var
OcupadaHasta: TDateTime;
FechaAConsultar: TDateTime;
begin
OcupadaHasta:= StrToDateTime('05/01/2011'); // fecha hasta
FechaAConsultar:= StrToDateTime('04/1/2011'); // fecha a consultar
if CompareDate(OcupadaHasta, FechaAConsultar) = 1 then
Caption:= 'OCUPADA' // <- Resultado en este ejemplo
else
Caption:= 'LIBRE';
...

A fines del ejemplo asigné los valores a mano, pero lógicamente el valor de OcupadaHasta deberá ser obtenido de alguna tabla.


Saludos.