Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

How to find how many sundays are in a month?

Posted on 1999-06-27
2
Medium Priority
?
1,092 Views
Last Modified: 2010-05-26
Hi
Is there a simple algorithm that will tell me how many days are in a month - like how many sundays or how many mondays, etc?

0
Comment
Question by:zen770
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 3

Expert Comment

by:jbil
ID: 1520043
One method..

Private Function getNumWeekdays(dayName As String, monthName As Integer, YrName As Integer)
Dim num, i As Integer

For i = 1 To 31
 On Error GoTo enufDays
 myday = Weekday(monthName & "/" & i & "/" & YrName)
 MyWeekDay = WeekdayName(myday)
  If MyWeekDay = dayName Then num = num + 1
Next

enufDays:
getNumWeekdays = num
Debug.Print getNumWeekdays
End Function

Private Sub Form_Load()
getNumWeekdays "Sunday", 6, 2002
End Sub

0
 
LVL 3

Accepted Solution

by:
BGillham earned 100 total points
ID: 1520044
Start with this routine and modify it to suit you.

Public Function CountWorkdays(ByVal dtmStart As Date, ByVal dtmEnd As Date, Optional rsHolidays As ADODB.Recordset = Nothing, Optional Fld As ADODB.Field = Nothing) As Integer
    ' Count the business days (not counting weekends/holidays) in
    ' a given date range.
    ' Requires:
    '   SkipHolidays
    '   CountHolidays
    '   IsWeekend
    ' In:
    '   dteStart:
    '       Date specifying the start of the range
    '   dteEnd:
    '       Date specifying the end of the range
    '       (dates will be swapped if out of order)
    '   rsHolidays (Optional):
    '       Reference to an recordset containing
    '       information about the holidays for the year in question.
    '       If you supply this value, you must also supply the
    '       Field, the name of the field containing date information.
    '   Fld (Optional):
    '       If you supply rsHolidays, you must supply this parameter, the
    '       name of the field in rsHolidays containing information about
    '       the holidays.
    ' Out:
    '   Return Value:
    '       Number of working days (not counting weekends and optionally, holidays)
    '       in the specified range.
    ' Example:
    '   Dim rst As Recordset
    '   Set rst = db.Open "SELECT * FROM HOLIDAYS", adKeyset, adReadOnly
    '   Debug.Print CountWorkdays(#12/27/96#, #1/2/97#, rst, "Date")
    '   '   Returns 3, if 12/31 and 1/1 are holidays
    '   Debug.Print CountWorkdays(#12/27/96#, #1/1/97#)
    '   '   Returns 5, because the code skips weekends only, and doesn't
    '   '   consider holidays.
    Dim dtmTemp     As Date

    ' Swap the dates if necessary.
    If dtmEnd < dtmStart Then
        dtmTemp = dtmStart
        dtmStart = dtmEnd
        dtmEnd = dtmTemp
    End If
   
    ' Get the start and end dates to be weekdays.
    dtmStart = SkipHolidays(rsHolidays, Fld, dtmStart, 1)
    dtmEnd = SkipHolidays(rsHolidays, Fld, dtmEnd, -1)
    If dtmStart > dtmEnd Then
        ' Sorry, no Workdays to be had. Just return 0.
        CountWorkdays = 0
    Else
        CountWorkdays = dtmEnd - dtmStart + 1
        ' Subtract off weekend days.  We do this by figuring out how many
        ' calendar weeks there are between the dates, and multiplying the
        ' difference by two (since there are two weekend days for each week).
        ' That is, if the difference is 0, the two days are in the same week.
        ' If the difference is 1, then we have two weekend days.
        CountWorkdays = CountWorkdays - (DateDiff("ww", dtmStart, dtmEnd) * 2)

        ' The answer to our quest is all the weekdays, minus any
        ' holidays found in the table.
        ' If rst is Nothing, this call won't subtract any dates.
        CountWorkdays = CountWorkdays - CountHolidays(rsHolidays, Fld, dtmStart, dtmEnd)
    End If

    'cleanup
    Set Fld = Nothing
    Set rsHolidays = Nothing
End Function

0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses

688 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question