Bug in TCustomPlanner.GetCellTime

use tDBPlanner with Mode.Plannertype = plMultiMonth and call GetCellTime() for a Non-existing Day (29.02.2019) 
(in OnPlannerBallon for example)


GetCellTime will crash in 

  case Mode.PlannerType of
[...]
    plMultiMonth:
[...]
        Result := EncodeDate(Y, res, i + 1);
[...]

-> Invalid Argument for EncodeDate


Just change it to: 

      if i < DaysInAMonth(Y, re) then 
        Result := EncodeDate(Y, res, i + 1);


Thanks for notifying.
We will synchronize this improvement.