How to determine if a date falls on the weekend?

by

There is a Weekday function that takes a Date as an argument and returns the day (1, 2, 3, etc.)

The return values are:

vbSunday (1)  
vbMonday (2)  
vbTuesday (3)  
vbWednesday (4)  
vbThursday (5)  
vbFriday (6)  
vbSaturday (7)

Assuming that weekends are Saturday and Sunday, the function would look like this:

Public Function IsWeekend(InputDate As Date) As Boolean
    Select Case Weekday(InputDate)
        Case vbSaturday, vbSunday
            IsWeekend = True
        Case Else
            IsWeekend = False
    End Select
End Function

More Related Contents:

  1. Duplicate number and it value in column EXCEL [closed]
  2. Rearranging Excel Cell based on Value [closed]
  3. How do I get the old value of a changed cell in Excel VBA?
  4. Force a screen update in Excel VBA
  5. Find all matches in workbook using Excel VBA
  6. Create a new sheet for each unique agent and move all data to each sheet
  7. Set Auto Filtering multiple wildcards
  8. How to make Excel VBA variables available to multiple macros?
  9. Use of symbol # (hash) in VBA Macro
  10. Excel VBA: Can’t get a match, error “Unable to get the Match property of the WorksheetFunction class”
  11. Excel VBA looping through multiple worksheets
  12. When one should use Set [e.g for SpecialCells return value]?
  13. Excel: macro to export worksheet as CSV file without leaving my current Excel sheet
  14. Is there a faster CountIF
  15. VBA EXCEL To Prompt User Response to Select Folder and Return the Path as String Variable [duplicate]
  16. Excel VBA How to detect if something was pasted in a Worksheet
  17. Getting error Procedure too large in VBA Macros (Excel)
  18. How to add data validation to a cell using VBA
  19. How to do late binding in VBA?
  20. How to break long string to multiple lines
  21. How to copy a chart from Excel to PowerPoint?
  22. vba paste not working
  23. mac excel vba loop : from list & then export as pdf
  24. Can Advanced Filter criteria be in the VBA rather than a range?
  25. How do I avoid run-time error when a worksheet is protected in MS-Excel?
  26. Conditional formatting using 3 conditions in Macro/VBA
  27. How to call function from another specific workbook in VBA?
  28. Open Google Chrome from VBA/Excel
  29. Excel VBA Run-time error 1004 when inserting or value formula into cell
  30. How to wait until ActiveWorkbook.RefreshAll finishes before executing more code

Leave a Comment