如何计算一定工作日前的工作日

正确的代码是不是应该如下呢?

Function workdayDate(myDate As Date, i As Long) As Date
    Dim n As Integer
    n = Weekday(myDate - i)
    Select Case n
    Case 1    '星期天
        workdayDate = myDate - i - 2
    Case 2    '星期一
        workdayDate = myDate - i - 3
    Case 3    '星期二
        workdayDate = myDate - i - 1
    Case 4     '星期三
        workdayDate = myDate - i - 1
    Case 5     '星期四
        workdayDate = myDate - i - 1
    Case 6     '星期五
        workdayDate = myDate - i - 1
    Case 7     '星期六
        workdayDate = myDate - i - 1
    End Select
End Function

'调用方法:

Debug.Print workdayDate(#11/27/2007#, 2)