【结帖】请问:如何实现流程的有效时限？**

zfang

http://bbs.justep.com/forum.php? ... 4%B5%C4%CE%CA%CC%E2
------------------------------------------------------------------
楼主，你参考帖子做做看吧，如果碰到问题再一起研究，如何？

lotus

你好！能不能帮我把这段代码解释下！谢谢！

lotus

你好！能不能帮我把这段代码解释下！谢谢！
procedure TFlowTaskEditorForm.LoadFromFlowTask(const AFlowTask: TFlowTask);
begin
  InternalBeginUpdate;
  try
    edtSubject.Text := AFlowTask.Subject;
    radPriority.ItemIndex := Ord(AFlowTask.Priority);
    edtLimitTime.DateTime := DateUtils.TimeOf(SysSrv.SysService.Time);
    if AFlowTask.LimitTime > 0 then
    begin
      edtLimitTime.ShowCheckbox := True;
      edtLimitTime.Time := DateUtils.TimeOf(AFlowTask.LimitTime);
      edtLimitTime.ShowCheckbox := False;
      edtLimitDate.Date := DateUtils.DateOf(AFlowTask.LimitTime);
    end
    else
      edtLimitDate.Date := 0;
    mmDescription.Lines.Text := AFlowTask.Description;
  finally
    InternalEndUpdate;
  end;
end;

lotus

问题解决，可是还有个问题：
请问
lDatetime := SysUtils.StrToDate('2007-01-01');   //这个可以取用户录入的限制日期
这个日期要如何写才能变成：数据库的设定天数+当前时间

yancm

DateUtils.IncDay(AValue: Double; ANumberOfDays: Longint): Double;

zfang

由于楼主长期未反馈，先结帖！
有问题请重新开帖！