[AccessD] For next loop - using date criteria

Chester,

I think its because when you use STEP...the variable right after that 
determins for the rest of the loop how many, or number you are going to 
step...since you calculate it after the fact(starting with null) you loop 
takes your first date...adds nothing to it...then loops again.

I think this is why your not looping.

Hope it helps,

Mark A. Matte


>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

_________________________________________________________________
Get free, personalized commercial-free online radio with MSN Radio powered 
by Pandora http://radio.msn.com/?icid=T002MSN03A07001