D
Dennis
Does anyone know how to count the number of weekdays between two dates?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
K
Ken Snell
Here's a "brute-force" function (found in another newsgroup) for doing what
you seek:
Public Function NumberOfWeekDays(datStart As Date, datEnd As Date) As Long
Dim lngNumber As Long, lngTotalDays As Long, lngCount As Long
lngTotalDays = datEnd - datStart
lngNumber = 0
For lngCount = 1 To lngTotalDays
If DatePart("w", datStart + lngCount, vbMonday) < 6 Then lngNumber =
lngNumber + 1
Next lngCount
NumberOfWeekDays = lngNumber
End Function
you seek:
Public Function NumberOfWeekDays(datStart As Date, datEnd As Date) As Long
Dim lngNumber As Long, lngTotalDays As Long, lngCount As Long
lngTotalDays = datEnd - datStart
lngNumber = 0
For lngCount = 1 To lngTotalDays
If DatePart("w", datStart + lngCount, vbMonday) < 6 Then lngNumber =
lngNumber + 1
Next lngCount
NumberOfWeekDays = lngNumber
End Function
H
Howhiareu
the easy way is :
temp = datediff("w", Date1, Date2)
the "w" argument means weekdays. Look at the help for DateDiff, its
very useful.
temp = datediff("w", Date1, Date2)
the "w" argument means weekdays. Look at the help for DateDiff, its
very useful.
D
Duane Hookom
Oops... I doubt it. Have you tested this?
DateDiff("w",#12/31/2003#,Date()) = 2
I don't think that is what the OP was looking for.
DateDiff("w",#12/31/2003#,Date()) = 2
I don't think that is what the OP was looking for.
H
Howhiareu
OOps. you're right. Didn't test this one. First time and it bit me.
So Sorry.
So Sorry.