Помогите,пожалуйста,упростить код.Задача: к дате 24 августа 2007 надо прибавить 7 банковских дней,т.е. 7 будничных дней без выходных.Я попытался сделать,но он у меня получился слишком большим.Подскажите,пожалйста,как его можно упростить.Вот эта функция
Function wekend(days As Date)
Dim Bankday As Date
Dim a As Integer
Dim s As Integer
Dim nDay As Integer
Bankday = days
For i = 1 To 7
Bankday = Bankday + 1
nDay = Weekday(Bankday)
If (nDay = 1) Or (nDay = 7) Then a = a + 1
Next i
For i = 1 To a
Bankday = Bankday + 1
nDay = Weekday(Bankday)
If (nDay = 1) Or (nDay = 7) Then s = s + 1
Next i
For i = 1 To s
Bankday = Bankday + 1
Next i
wekend = Bankday
End Function

Большое спасибо.