¿Cuántos meses entre dos fechas?

A veces necesitamos saber los meses que hay entre dos fechas, aquí dejo una función que hace este cometido bastante bien.

Private Function CalcularMeses(ByVal fechaInicio As DateTime, ByVal fechaFin As DateTime) As Single

Dim Año As Single = fechaFin.Year - fechaInicio.Year

      Meses = 12 * Año

      Meses += fechaFin.Month - fechaInicio.Month

      Meses += (fechaFin.Day - fechaInicio.Day) / 100.0F
Return Meses

End Function

----------------------------------------------------

Para pensar:

La paz más desventajosa es mejor que la guerra más justa
Erasmo