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:
Just change it to:
if i < DaysInAMonth(Y, re) then
Result := EncodeDate(Y, res, i + 1);