VB.NET DateSpan Class

”’ <summary>

”’ Provides an easy way to get the number if years and months bewteen two dates.

”’ </summary>

”’ <remarks></remarks>

Public Class DateSpan

   Dim _Years As Integer

   Dim _Months As Integer

   Public Sub New(ByVal StartDate As Date, ByVal EndDate As Date)

      Dim intTotalMonths As Integer = DateDiff(DateInterval.Month, StartDate, EndDate)

      _Years = intTotalMonths \ 12

      _Months = intTotalMonths – (_Years * 12)

   End Sub

   Public ReadOnly Property Years() As Integer

      Get

         Return _Years

      End Get

   End Property

   Public ReadOnly Property Months() As Integer

      Get

         Return _Months

      End Get

   End Property

End Class