WD: How to Determine the Number of Days in a Specified Month

• Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
• Microsoft Word for Windows 95, versions 7.0, 7.0a

SUMMARY

To determine the number of days in a specified month, use the following Microsoft WordBasic macro Select Case structure.

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

   Sub Main
      'This macro determines the number of days in a given month.
      datev = DateValue(InputBox$("Enter a date in the mm/dd/yy format"))
      mon = Month(datev)
      Select Case mon
         Case 1, 3, 5, 7, 8, 10, 12
            MsgBox "31 days"
         Case 4, 6, 9, 11
            MsgBox "30 days"
         Case 2
            mon = Month(datev)
            If Year(datev) Mod 4 = 0 Then
               MsgBox "There are 29 days in this month"
            Else
               MsgBox "There are 28 days in this month"
            End if
      End Select
   End Sub

The macro takes leap years into consideration when computing the number of days in the month of February.

   If Year(datev) Mod 4 = 0 Then