Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Get the weekend between startDate and endDate

Function TestIfWeekend(startDate, endDate)   Dim varDate   TestIfWeekend = "XXX"                     If startDate = 0 Then Exit Function       If endDate = 0 Then Exit Function         If endDate - startDate < 2 Then Exit Function     For varDate = startDate To endDate - 1     If WeekDay(varDate) = 7 Then       TestIfWeekend = "OK": Exit Function     End If   Next varDate End Function