关于日期的简单问题，顶者给分！

Question

start_time,over_time为两个日期值，请问怎么将每一天的日期循环赋值给V_data变量？或者每一天循环执行一段程序？

Answer 1

晕倒，不是这个意思啦。比如start_time(2004-05-20),Over_time(2004-06-20),怎么把2004-5-20，2004-5-21...一天一天的赋给V_date?或者每一天重复执行某一段代码？

Answer 2

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
在DateUtils单元

Answer 3

循环对Start_Time执行IncDay(Start_Time) 直到它等于Over_Time

Answer 4

多谢楼上几位，能否再详细一点？incday函数没有用过 ：（

Answer 5

可以用个Timer控件，在OnTimer事件中写如下代码：
//V_data、Start_Time、over_time为Tdate类型
if （V_data=now） and (V_data<Over_Time) then
begin
Over_Time:=IncDay(Start_Time);
//执行你的代码
end;
if (V_data>=Over_Time) then
begin
  Application.Terminate;//关闭程序
end;

Answer 6

//V_data、Start_Time、over_time应该为TdateTime类型