hi friend i have this function:
Function calcularMeses(date1 As Date, date2 As Date) As Integer
On Error Resume Next
Application.Volatile True
Dim xMEses As Integer
xMEses = 0
If Dia(date2) >= Dia(date1) Then
xMEes = (año(date2) - año(date1)) * 12 + mes(date2) - mes(date1)
End If...