[AccessD] For next loop - using date criteria

That is a start. Added the following line after loop end. Now it just
increments 30 every time instead of value of DaysinMonth

DaysinMonth = DaysInMonth2(StartDate) 

-----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:34 PM
To: accessd at databaseadvisors.com
Subject: Re: [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

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com