今天日子对所有人来说，“不平常”，发帖纪念一下

今天是“世界完全对称日”，因为今天是“20111102”。这是这辈子最后一个对称日了。发个帖子，以表留念...

解决方案 »

  1.   

    LZ悲观了
    20200202不也是一个对称日,难道LZ活不到那一天.
      

  2.   

    Private Sub Command1_Click()
        Dim s$, d1 As Date
        d1 = #1/1/2000#
        Do While d1 < #1/1/3000#
            s = Replace(CStr(d1), "-", "")
            If s = StrReverse(s) Then
                Debug.Print s
            End If
            d1 = DateAdd("d", 1, d1)
        Loop
    End Sub输出：
    20011002
    20100102
    20111102
    20200202
    20211202
    20300302
    20400402
    20500502
    20600602
    20700702
    20800802
    20900902
    21011012
    21100112
    21111112
    21200212
    21211212
    21300312
    21400412
    21500512
    21600612
    21700712
    21800812
    21900912
    22011022
    22100122
    22111122
    22200222
    22211222
    22300322
    22400422
    22500522
    22600622
    22700722
    22800822
    22900922