一个关于时间查询的问题

Question

我现在要实现循环查询,查询的条件是时间(包括日期和时间),日期即为当天,时间以早上8:00:00开始,循环第一次查询的是当天8:00:00到9:00:00这段时间的数据,第二次查询就要查询9:00:00到10:00:00这段时间的数据,以此类推,直到时间为21:00:00就结束查询,这循环查询该如何实现,循环体该如何写呀?请指教!

Answer 1

var
  i:integer;
  dtDate,dtBegin,dtEnd:TDateTime;
begin
  dtDate := Trunc(Now)
  for i:=1 to 24 do
  begin
    dtBegin := dtDate + i-1/24;
    dtEnd := dtDate + i/24;
    ...  end;
end;