[[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