MM-DD-YYYY 到星期几，分析连续工作日

Question

我正在分析基于 x 个连续工作日的数据，M-F（以及后来跳过选定的假期）。我的计划是从 MM-DD-YYYY 确定星期几。

如何在 VBA 中做到这一点？

我发现了这种使用 .NET 的简单方法，但是如何从 Office 2007 VBA 调用，我需要添加什么参考？

DateTime.Parse("2009-10-02").ToString("D", CultureInfo.CreateSpecificCulture("en") .NET Day of week from YYYY-MM-DD

为了完整性和帮助他人，我的代码是这样结束的： 我如何才能在未来 x 天里清晰地概括这一点？

        myDateStd = myDate
        If Right(Left(myDate, 2), 1) = "/" Then myDateStd = "0" & myDate   'IF M/*/YYYY
        If Len(myDateStd) = 9 Then myDateStd = Left(myDateStd, 3) & "0" & Right(myDateStd, 6) ' If MM/D/YYYY' fix
        dayNumber = Weekday(DateSerial(Right(myDateStd, 4), Left(myDateStd, 2), Mid(myDateStd, 4, 2)), vbMonday)

        Select Case dayNumber
            Case 1 To 3
                workingDaysDelta = 3
            Case 4 To 5      'i.e. its a Friday (or thur) so need to count Fri,S,S,M,T
                workingDaysDelta = 5
            Case 6 To 7     ' its sat/sun
                workingDaysDelta = 4
            Case Else
                MsgBox "ERROR date seams invalid, Date = " & myDateStd
        End Select

'Loop with If testing conditions including:
CDate(wbAn.Cells(j, "E")) < (CDate(myDate) + dayNumber)

Answer 1

以下任何一项都应该有效

数字，例如2

Weekday(DateSerial(Right(s, 4), Left(s, 2), Mid(s, 4, 2)), vbMonday)

短字符串，例如“星期二”

Format(DateSerial(Right(s, 4), Left(s, 2), Mid(s, 4, 2)), "ddd")

长字符串，例如“星期二”

Format(DateSerial(Right(s, 4), Left(s, 2), Mid(s, 4, 2)), "dddd")

其中s 是包含'MM-DD-YYYY' 格式的日期的字符串。

无需添加任何引用。