Question : Calculate Weekends

Hi,

I have a problem with a function.
I produce records (35000) and the whole process costs about 4 minutes time what is normal.
Now i had to insert the following module and the process cost about 11 minutes.

Public Function aantal(van As Date, tot As Date) As Long
    Dim  i As Date
    For i = van To tot
        Select Case Weekday(i)
            Case 2, 3, 4, 5, 6
                aantal = aantal + 1
        End Select
    Next i
End Function

The difference between dates Van (from) and tot (To) can be 3 years.

Is there a way to let this module go faster?

Tx

Answer : Calculate Weekends

Try removing the read-only attribute using diskpart -

http://www.t3chworks.com/index.php?p=2_1

Lee