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

    Unanswered: Work out the 4th monday of the Month

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

    See clear as mud


    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 based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

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

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

    That what I wanted thats 2 easy
    hope this help

    See clear as mud


    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 based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

  4. #4
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,424
    Provided Answers: 8
    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

    See clear as mud


    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 based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

Posting Permissions

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