Loop between two dates

[bgv]

I have a form that has a starting date (txtStartDate) and a stop date (txtStopDate). How do I set up a for next loop to enter each date as a value into a table?

 

[redapples]

Function dateasinteger()
    Dim startdate As Date
    Dim stopdate As Date
    Dim i As Double
    
    startdate = #6/13/2003#
    stopdate = #7/13/2003#
    
    For i = CDbl(startdate) To CDbl(stopdate)
        'code in here to insert to table
        Cdate(i) ' changes the double back to a date
    Next
    
End Function

You would obviously have a different way to get the dates but this should work. The dates above have a difference as doubles of 30 so each step is an incremental date between the two.

Redapples

Want the best answers? See FAQ181-2886

 

[bgv]

Thanks. Will try.