End Of Month 1

[Codemage]

i need Some Code to Find if its the End of the Month
and what month we are Currently on. useing the calendar Control in VB

 

[johnwm]

The end of the month can be done with something like:

If Month(myDate+1) > Month(myDate) Then
' myDate is end of month

The name of the month can be got from :
Format(myDate,"mmmm&quot

Using "mmmm" above will give June
Using "mmm" above will give Jun
Using "mm" above will give 06
Using "m" above will give 6


Good Luck
johnwm

 

[Codemage]

If Month(myDate+1) > Month(myDate) Then
' myDate is end of month

Were is MyDate Coming from ?
the example you provided does nothing

 

[dsi]

I assume myDate is your date variable. If you are using the current system date, just use the Now function.

DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[derrick]

Public Function MonthEnd() As Boolean
Dim myDate As Date

myDate = Date

myDate = myDate + 11

If Month(myDate + 1) > Month(myDate) Then
MsgBox myDate & " is the end of the month."
MonthEnd = True

Else
MonthEnd = False

End If

End Function

This should od it for you.
Derrick