if date_ptr.Month mod 2 then    --month is not even
            if date_ptr.Day >= 1 or else date_ptr.Day <31 then
               date_ptr.Day := date_ptr.Day + 1;
            else                --the last day of month
               date_ptr.Day := 1;
               date_ptr.Month := date_ptr.Month + 1;
            end if;

         else                   -- month is even
           if date_ptr.Day >= 1 or else date_ptr.Day <30 then
               date_ptr.Day := date_ptr.Day + 1;
            else                --the last day of month
               date_ptr.Day := 1;
               if date_ptr.Month = 12 then      --December so year must be incremented also
                  date_ptr.Month := 1;
                  date_ptr.Year := date_ptr.Year + 1;
               else             --Any other even month different than December
                  date_ptr.Month := date_ptr.Month + 1;
               end if;
            end if;
         end if;