diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas index 311ac2df8..cc0bfaee2 100644 --- a/components/tvplanit/source/vpdata.pas +++ b/components/tvplanit/source/vpdata.pas @@ -1828,8 +1828,6 @@ begin if (Event.RepeatCode > rtNone) and RepeatsOn(Event, Value) then Inc(Result) // Otherwise if it is an event that naturally falls on today, then inc result -// else if ((trunc(Value) >= trunc(Event.StartTime)) -// and (trunc(Value) <= trunc(Event.EndTime))) then else if DateInRange(Value, Event.StartTime, Event.EndTime, true) then Inc(Result);