[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