I was bored, so I coded this function to find the amount of days in a month.

VB Code:
  1. Public Function DaysInMonth(Month As Integer, Year As Long) As Integer

  2.     

  3.     Select Case Month%

  4.         

  5.         Case Is = 1

  6.             DaysInMonth% = 31

  7.         Case Is = 2

  8.             

  9.             If (Year& Mod 4) = 0 Then

  10.                 DaysInMonth% = 29

  11.             Else:

  12.                 DaysInMonth% = 28

  13.             End If

  14.         

  15.         Case Is = 3

  16.             DaysInMonth% = 31

  17.         Case Is = 4

  18.             DaysInMonth% = 30

  19.         Case Is = 5

  20.             DaysInMonth% = 31

  21.         Case Is = 6

  22.             DaysInMonth% = 30

  23.         Case Is = 7

  24.             DaysInMonth% = 31

  25.         Case Is = 8

  26.             DaysInMonth% = 31

  27.         Case Is = 9

  28.             DaysInMonth% = 30

  29.         Case Is = 10

  30.             DaysInMonth% = 31

  31.         Case Is = 11

  32.             DaysInMonth% = 30

  33.         Case Is = 12

  34.             DaysInMonth% = 31

  35.         Case Else:

  36.             DaysInMonth% = 0

  37.         

  38.     End Select

  39.         

  40. End Function

Enjoy,
Sir Loin