我将如何在VB中为excel循环一个月中的特定日期

Question

IM试图将周三的每个实例拉到4月份

将它吐出一个excel细胞，但我遇到了麻烦

Answer 1

来自here：

Public Function FloatingHoliday(xYear As Integer, xMonth As Integer, _
    xDay As Integer,  xNumber As Integer) 

    FloatingHoliday = DateSerial(xYear, xMonth, _
        (8 - Weekday(DateSerial(xYear, xMonth, 1),  _ 
        (xDay + 1) Mod 8)) + ((xNumber - 1) * 7)) 

End Function 

在工作簿的空白单元格中，键入= floatingholiday（2004,11,5,4），其中2004年是年份，11是月份（11月），5是日（星期四）{星期日= 1，星期一= 2等}}，4是该月的第n天，在这种情况下，我们想要2004年11月的第4个星期四（感恩节）。