VBA将日期转换为星期数

在VBA中，我想将日期为03/11/2017(DD/MM/YYYY)转换为该日期的星期数。

到目前为止，我有以下代码:

   'geting the date out of the string
    HeadlineTemp = Mid(VRHeadline, InStr(VRHeadline, "[") + 1, 10)
   'switch "." to "/"
    HeadlineTemp = Replace(HeadlineTemp, ".", "/")
   'convert to a date
    FristVRFirstKW = CDate(HeadlineTemp)

现在，我需要一个函数将该日期转换为一年中的星期数。第一个工作日是星期一。

最佳答案

若要将星期一作为第一天的周号，请使用以下命令:

WorksheetFunction.WeekNum(now, vbMonday)

关于VBA将日期转换为星期数，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/46973967/