Today   (2020-02-02,   at the time of this writing)   happens to be a palindrome,   without the hyphens,   not only for those countries which express their dates in the   yyyy-mm-dd   format but,   unusually,   also for countries which use the   dd-mm-yyyy   format.



Task
Write a program which calculates and shows the next 15 palindromic dates for those countries which express their dates in the   yyyy-mm-dd   format.




today = DateList[Today];
res = {};
i = 0;
While[Length[res] < 15,
 date = DatePlus[today, i];
 ds = DateString[date, {"Year", "Month", "Day"}];
 If[PalindromeQ[ds],
  AppendTo[res, date]
  ];
 i++;
 ]
Column[DateString[#, {"Year", "-", "Month", "-", "Day"}] & /@ res]