UC知道delphi 时间函数问题？
来源：百度知道 编辑：UC知道 时间：2024/05/22 13:21:01
function TForm1.MyDateTime(StartDate, EndDate, Preaching: TDateTime): Boolean;
begin
if (Preaching>=StartDate)and(Preaching>=EndDate) then begin
Result:=true;
end else begin
Result:=false;
end;
end;
这样写对吗？
begin
if (Preaching>=StartDate)and(Preaching>=EndDate) then begin
Result:=true;
end else begin
Result:=false;
end;
end;
这样写对吗？
对事对, 可是你这样写不太好, 可以这样写.
function TForm1.MyDateTime(StartDate, EndDate, Preaching: TDateTime): Boolean;
begin
Result:=false;
if (Preaching>=StartDate)and(Preaching>=EndDate) then
Result:=true;
end;
-----------
另外逻辑上也有点问题, Preaching>=开始时间 并且 >=结束时间, 难道结束时间不在开始时间之后么,
要么 Preaching>=结束时间
要么 (Preaching>=StartDate)and(Preaching<=EndDate)