maximum days in a month

[Guest]

hello,
What statement would I use to find out maximun days in a month in VBA?

Thanks in advance

 

[Bernie Deitrick]

James,

Months in VBA are the same as regular months, so 31.

But I'm guessing your question is somewhat more specific than it appears.

What kind of days? Workdays? Weekend days? Odd numbered Wednesdays?

HTH,
Bernie
MS Excel MVP

 

[Tom Ogilvy]

the zeroth day of the next month is the last days of the month in question

Dim dt as Date
dt = Date
lastDay = days(DateSerial(year(dt),Month(dt)+1,0))

 

[Tom Ogilvy]

Here is a demo:

Sub ABCD()
sStr1 = ""
For i = 1 To 12
dt = DateSerial(2005, i, 1)
sStr = "Last day of " & _
Format(dt, "mmmm") & " is " & _
Day(DateSerial(Year(dt), Month(dt) + 1, 0))
sStr1 = sStr1 & sStr & vbNewLine

Next
MsgBox sStr1, , "Last Day of the Month for Year 2005"
End Sub

 

[Guest]

Hi,
Lat day in a month i given by
Dim d as Date
d=date() '<--- your date here
'last date of month
msgbox MonthLastDay = DateSerial(Year(d), Month(d) + 1, 1 - 1)
'day number
msgbox Day(MonthLastDay = DateSerial(Year(d), Month(d) + 1, 1 - 1))

Regards,
Sebastienm

 

[Guest]

okj, i'll try to re-write my previous post without error this time:
Dim d as Date
d=date() '<--- your date here
'last date of month
msgbox DateSerial(Year(d), Month(d) + 1, 1 - 1)
'day number
msgbox Day(DateSerial(Year(d), Month(d) + 1, 1 - 1))

sebastienm

 

[Tom Ogilvy]

Note that days should be signular
lastDay = days(DateSerial(year(dt),Month(dt)+1,0))
should be

lastDay = day(DateSerial(year(dt),Month(dt)+1,0))

sorry for the typo.

 

[Ron Rosenfeld]

hello,
What statement would I use to find out maximun days in a month in VBA?

Thanks in advance

You don't have to compute it since VBA uses the same calendar.

====================
Const MaxDaysInMonth As Integer = 31
====================

Perhaps you mean something else?



--ron