Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: beginner
Oct 9, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

The number of days in a month

You need just one-line function to evaluate the number of days in a month (while taking leap years into account, of course). The trick is to use the DateDiff and DateSerial functions to calculate the difference between the first day of the current month and the first day of the subsequent month :

Function DaysInMonth(ByVal Month As Integer, ByVal Year As Integer) As Integer
    DaysInMonth = DateDiff("d", DateSerial(Year, Month, 1), DateSerial(Year, _
        Month + 1, 1))
End Function
At first it seems that you need an If statement to deal with December in a separate block of code, but the DateSerial function returns a consistent value even when Month > 12.
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date