今天日子对所有人来说,“不平常”,发帖纪念一下
[b]今天是“世界完全对称日”,因为今天是“20111102”。这是这辈子最后一个对称日了。发个帖子,以表留念...[/b]
[解决办法]
LZ悲观了
20200202不也是一个对称日,难道LZ活不到那一天.
[解决办法]
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) LoopEnd Sub
[解决办法]
看来LZ的年纪已经不小了。