ProgrammingMSAccess.com

The ProgrammingMSAccess.COM Site

a pair of vba procedures that demo a utility for computing the days to next month

Sub CallDaysToNextMonth()

Debug.Print IIf(DaysToNextMonth(#1/31/2001#) _
= 1, "It works!", "Try again.")

End Sub

Function DaysToNextMonth(dtmDateIn As Date)
'Including current date
dtmNextMonth = DateAdd("m", 1, dtmDateIn)
DaysToNextMonth = 0
Do While Month(dtmNextMonth) <> Month(dtmDateIn + DaysToNextMonth)
DaysToNextMonth = DaysToNextMonth + 1
Loop
End Function

Want to understand  Microsoft Access 2000/2002/2003 so that you can program it to do more tasks like this?  Get Programming Microsoft Office Access 2003 by Rick Dobson from Microsoft Press.  Learn more about the book by clicking here.

Copyright 2003 CAB, Inc. All rights reserved. Republication or redistribution of CAB, Inc. content, including by framing or similar means, is expressly prohibited without the prior written consent of CAB, Inc. CAB, Inc. shall not be liable for any errors in the content, or for any actions taken in reliance thereon.