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

今天日子对所有人来说，“不平常”，发帖纪念一下
今天是“世界完全对称日”，因为今天是“20111102”。这是这辈子最后一个对称日了。发个帖子，以表留念...
[解决办法]
LZ悲观了
20200202不也是一个对称日,难道LZ活不到那一天.
[解决办法]

引用:

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

不过都是某些人搞的噱头大肆宣传而已
[解决办法]
20300302
[解决办法]
哎！现在为什么有那么多的流言？就是有那么多的人不动脑子。
[解决办法]

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
[解决办法]
看来LZ的年纪已经不小了。

查看更多 下一篇