根据星期得出日期

常扬帆

已知今天是星期日，求今天以后的所有星期日的日期，谢谢！

过客fppt

单元格设置为日期型，+7即可

wengjl

今天后的日期有无限多，算到哪为止呢？

常扬帆

wengjl 发表于 2024-5-12 13:48
今天后的日期有无限多，算到哪为止呢？

哈哈，就是我想到哪天就哪天，谢谢您的关注！

Qs18

Public Sub test()
Dim d, k, M
k = 2
M = Val(InputBox("请输入您要循环多少次！"))
d = CDate("2024/5/12")
Range("b2") = d
Range("a2") = d
For i = 7 To M Step 7
    k = k + 1
    Range("b" & k) = d + i
    Range("A" & k) = d + i
Next

End Sub

gwjkkkkk

Sub test()
    Dim dte As Date, strInput$, i As Date, ar
   
    strInput = InputBox("请输入截止日期", "请输入", "2025-1-1")
    dte = CDate("2024-5-12") + 7
   
    ReDim ar(1 To 10 ^ 5, 0) As String
    For i = dte To CDate(strInput) Step 7
        r = r + 1
        ar(r, 0) = i
    Next i
   
    Columns("A").Clear
    [A1].Resize(r) = ar
End Sub