求助达人一个编程基础问题 - IT home | IT之家 - SiS001! Board

VIP可享有论坛特权，免看广告，负分归零，重新加分开始！「我要成为VIP」

52024nwahs 发表于 2023-7-16 17:33 只看TA 11楼
提供一个授人以渔的方法可以使用chatGPT来做类似的工作要求chatGPT输出代码和每行对应的功能不过vba好古老啊
0

用户名： 52024nwahs 用户组：LEVEL 1 状态：离线互动：发短消息发帖：搜索帖子

zhenght123 发表于 2023-7-30 11:05 只看TA 12楼
' 定义对称日的函数 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) 编辑 ]
0

zhenght123 发表于 2023-7-30 11:05 只看TA 12楼

' 定义对称日的函数
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) 编辑 ]

用户名： zhenght123 用户组：LEVEL 6 状态：离线互动：发短消息发帖：搜索帖子

jyfc 发表于 2024-12-11 12:23 只看TA 13楼
回复 1楼的帖子 vba没学过啊。。。太少见了吧，但是逻辑的话，你可以用4个变量来存年份，比如1000可以是四个变了
0

用户名： jyfc 用户组：LEVEL 1 状态：离线互动：发短消息发帖：搜索帖子

zsunlight 发表于 2024-12-14 05:47 只看TA 14楼
只需遍历一年即可，每一天都会有对应的年数
0

用户名： zsunlight 用户组：LEVEL 1 状态：离线互动：发短消息发帖：搜索帖子

回复帖子发新话题

14 ‹‹12