52024nwahs

提供一个授人以渔的方法  可以使用chatGPT来做类似的工作 要求chatGPT输出代码 和每行对应的功能
不过vba好古老啊

zhenght123

' 定义对称日的函数  
Function IsSymmetric(ByVal dateValue As Date) As Boolean  
    ' 判断日期是否为对称日  
    If DateSerial(Year(dateValue), 1, 1) + DateSerial(Year(dateValue), 2, (Month(dateValue) - 1)) - DateSerial(Year(dateValue), Month(dateValue), 1) + DateSerial(Year(dateValue), Month(dateValue), 2) = dateValue Then  
        IsSymmetric = True  
    Else  
        IsSymmetric = False  
    End If  
End Function  
  
' 循环遍历所有日期并输出对称日  
Sub 测试()
Dim i As Integer  
For i = 1000 To 9999  
    If IsSymmetric(i) Then  
        Debug.Print i  
    End If  
Next i
End Sub
直接将以上代码复制粘贴，然后运行

[ 本帖最后由 zhenght123 于 2023-7-30 11:09(GMT+8) 编辑 ]

jyfc

vba没学过啊。。。太少见了吧，但是逻辑的话，你可以用4个变量来存年份，比如1000可以是四个变了

zsunlight

只需遍历一年即可，每一天都会有对应的年数