Vb.net 如何在VB for excel中循环一个月内的特定日期

我想把四月份的每一个星期三的例子都拉出来

并将其吐到excel单元格中，但我遇到了以下问题：

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

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