diff --git a/components/tvplanit/source/vpcalendarpainter.pas b/components/tvplanit/source/vpcalendarpainter.pas
index 2b97af842..221074215 100644
--- a/components/tvplanit/source/vpcalendarpainter.pas
+++ b/components/tvplanit/source/vpcalendarpainter.pas
@@ -188,7 +188,10 @@ begin
   day := TVpCalendarOpener(FCalendar).clCalendar[I];
   S := IntToStr(day);
 
-  dt := Encodedate(FCalendar.Year, FCalendar.Month, day);
+  if not TryEncodeDate(FCalendar.Year, FCalendar.Month, day, dt) then
+    exit;
+
+  //dt := Encodedate(FCalendar.Year, FCalendar.Month, day);
   if Grayed then
     RenderCanvas.Font.Color := InactiveDayColor
   else