• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Use this code to work out the Dates between two givern Dates. Currently it works by taking a value

Use this code to work out the Dates between two givern Dates. Currently it works by taking a value

Use this code to work out the Dates between two givern Dates. Currently it works by taking a value such as "7" and then it will work out every

API Declarations


* Add The Code to your Form Load Procedure.

Option Explicit

Dim Day as Integer
Dim Month as Intger
Dim Year as Integer

Dim LoopDays As Integer
Dim LoopCount As Integer
Dim LoopTimes As Integer



Rate Use this code to work out the Dates between two givern Dates. Currently it works by taking a value

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

LoopCount = 0

'Set Todays Date as Start Point.
'This can easily be modified by capable progammers.
'Always pass in the Date as a whole digit (ie. 1,1,2004 not 01,01,2004)

Day = Format(Date,"D")
Month = Format(Date,"M")
Year = Format(Date,"YYYY")

'Define How many Days in the Defined Month

Select Case Month
    Case 1
    LoopDays = 31
    Case 2
    LoopDays = 29
    Case 3
    LoopDays = 31
    Case 4
    LoopDays = 30
    Case 5
    LoopDays = 31
    Case 6
    LoopDays = 30
    Case 7
    LoopDays = 31
    Case 8
    LoopDays = 31
    Case 9
    LoopDays = 30
    Case 10
    LoopDays = 31
    Case 11
    LoopDays = 30
    Case 12
    LoopDays = 31
End Select

Do Until LoopCount = LoopTimes

    List.AddItem Day & "/" & Month & "/" & Year

    If Day = 1 Tehn
        Day = LoopDays
        Month = Month - 1
        Select Case Month
            Case 1
            LoopDays = 31
            Case 2
            LoopDays = 29
            Case 3
            LoopDays = 31
            Case 4
            LoopDays = 30
            Case 5
            LoopDays = 31
            Case 6
            LoopDays = 30
            Case 7
            LoopDays = 31
            Case 8
            LoopDays = 31
            Case 9
            LoopDays = 30
            Case 10
            LoopDays = 31
            Case 11
            LoopDays = 30
            Case 12
            LoopDays = 31
        End Select
    Else
        Day = Day - 1
    End If

    LoopCount = LoopCount + 1

Loop