Results 1 to 4 of 4
  1. #1
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,475
    Provided Answers: 11

    Unanswered: Work out the 4th monday of the Month

    Has Any one got a formula to do this
    hope this help

    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.
    DONT WORRY ABOUT THOSE WHO TALK BEHIND YOUR BACK
    THEY'RE BEHIND YOU FOR A REASON

  2. #2
    Join Date
    Jan 2007
    Location
    UK
    Posts
    11,445
    Provided Answers: 12
    This link may help you
    George
    Home | Blog

  3. #3
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,475
    Provided Answers: 11
    Thanks Georgev

    That what I wanted thats 2 easy
    hope this help

    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.
    DONT WORRY ABOUT THOSE WHO TALK BEHIND YOUR BACK
    THEY'RE BEHIND YOU FOR A REASON

  4. #4
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,475
    Provided Answers: 11
    Here it is

    Code:
    Function NextDate(nmonth, nTh, myday)
        '*************************************************
        'thanks to
        'http://michaelthompson.org/technikos/holidays.php
        '*************************************************
        Select Case myday
            Case "Mon"
                nTargetday = 2
            Case "Tue"
                nTargetday = 3
            Case "Wed"
                nTargetday = 4
            Case "Thu"
                nTargetday = 5
            Case "Fri"
                nTargetday = 7
            Case "Sat"
                nTargetday = 0
            Case "Sun"
                nTargetday = 1
        End Select
        nyear = Year(Date)
        nEarliestDate = 1 + 7 * (nTh - 1)
        nWeekday = Weekday(DateValue(nEarliestDate & "/" & nmonth & "/" & nyear), vbSunday)
        If nWeekday = nTargetday Then
            noffset = 0
        ElseIf nTargetday < nWeekday Then
            noffset = nTargetday + (7 - nWeekday)
        Else
            noffset = (nTargetday + (7 - nWeekday)) - 7
        End If
        nextD = nEarliestDate + noffset & " " & MonthName(nmonth, True) & " " & nyear
        NextDate = nextD
    End Function

    <% =NextDate(Month(Date), 4, "Mon") %>
    hope this help

    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.
    DONT WORRY ABOUT THOSE WHO TALK BEHIND YOUR BACK
    THEY'RE BEHIND YOU FOR A REASON

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •