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.




 
Dim As String dateTest = ""
Dim As Integer Pal =0, total = 0
Print "Siguientes 15 fechas palindr¢micas al 2020-02-02:"
For anno As Integer = 2021 To 9999
    dateTest = Ltrim(Str(anno))
    For mes As Integer = 1 To 12
        If mes < 10 Then dateTest = dateTest + "0"
        dateTest += Ltrim(Str(mes))
        For dia As Integer = 1 To 31
            If mes = 2 And dia > 28 Then Exit For
            If (mes = 4 Or mes = 6 Or mes = 9 Or mes = 11) And dia > 30 Then Exit For
            If dia < 10 Then dateTest += "0"
            dateTest = dateTest + Ltrim(Str(dia))
            For Pal = 1 To 4
                If Mid(dateTest, Pal, 1) <> Mid(dateTest, 9 - Pal, 1) Then Exit For
            Next Pal
            If Pal = 5 Then 
                total += 1
                If total <= 15 Then Print Left(dateTest,4);"-";Mid(dateTest,5,2);"-";Right(dateTest,2)
            End If
            if total > 15 then Exit For : Exit For : Exit For            
            dateTest = Left(dateTest, 6)
        Next dia
        dateTest = Left(dateTest, 4)
    Next mes
    dateTest = ""
Next anno
Sleep
 