[AccessD] For next loop - using date criteria

Chester,

Here is a quick stab at that.  Probably not the best...but I think it works.

Thanks,

Mark A. Matte

Dim LoopDate
LoopDate = StartDate
Do While LoopDate < #11/1/06#

'For I = LoopStart To LoopEnd Step DaysInMonth

    Debug.Print CVDate(LoopDate)

    DaysInMonth = DaysInMonth2(CVDate(LoopDate)) + 1
    LoopDate = LoopDate + DaysInMonth - 1

Loop


>From: "Kaup, Chester" <Chester_Kaup at kindermorgan.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] For next loop - using date criteria
>Date: Wed, 13 Dec 2006 13:52:14 -0600
>
>I am trying to loop from 11/1/1948 to 11/1/2006 stepping from the first
>day of one month to the first day of the next month.
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte
>Sent: Wednesday, December 13, 2006 1:36 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] For next loop - using date criteria
>
>Also,
>
>If I may ask...what are you trying to accomplish?
>
>Thanks,
>
>Mark
>
>
> >From: "Kaup, Chester" <Chester_Kaup at kindermorgan.com>
> >Reply-To: Access Developers discussion and problem
> >solving<accessd at databaseadvisors.com>
> >To: "Access Developers discussion and problem
> >solving"<accessd at databaseadvisors.com>
> >Subject: [AccessD] For next loop - using date criteria
> >Date: Wed, 13 Dec 2006 13:02:05 -0600
> >
> >I am trying to use date criteria in a for next loop but loop never
> >increments. Loop works if a hard code in a step but with variable. What
> >might I be missing? Code below.
> >
> >
> >
> >StartDate = #11/1/1948#
> >
> >EndDate = #11/1/2006#
> >
> >LoopStart = CLng(StartDate)
> >
> >LoopEnd = CLng(EndDate)
> >
> >
> >
> >For I = LoopStart To LoopEnd Step DaysinMonth
> >
> >     Debug.Print CVDate(I)
> >
> >     DaysinMonth = DaysInMonth2(CVDate(I)) + 1
> >
> >Next I
> >
> >
> >
> >
> >
> >End Function
> >
> >
> >
> >Public Static Function DaysInMonth2(D As Date) As Integer
> >
> >'
> >
> >' Returns the number of days in a month
> >
> >' Requires a date argument, since February can change if it's a leap
> >year
> >
> >' Lets Access figure it out
> >
> >'
> >
> >   If VarType(D) <> 7 Then
> >
> >     DaysInMonth2 = Null
> >
> >   Else
> >
> >     DaysInMonth2 = DateSerial(Year(D), Month(D) + 1, 1) -
> >DateSerial(Year(D), Month(D), 1)
> >
> >   End If
> >
> >End Function
> >
> >
> >
> >
> >
> >Chester Kaup
> >
> >Engineering Technician
> >
> >Kinder Morgan CO2 Company, LLP
> >
> >Office (432) 688-3797
> >
> >FAX (432) 688-3799
> >
> >
> >
> >
> >
> >No trees were killed in the sending of this message. However a large
> >number of electrons were terribly inconvenienced.
> >
> >
> >
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
>
>_________________________________________________________________
>Share your latest news with your friends with the Windows Live Spaces
>friends module.
>http://clk.atdmt.com/MSN/go/msnnkwsp0070000001msn/direct/01/?href=http:/
>/spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mk
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com

_________________________________________________________________
View Athlete’s Collections with Live Search 
http://sportmaps.live.com/index.html?source=hmemailtaglinenov06&FORM=MGAC01