Thread: Months Until date difference

Takes 2 dates and outputs how many months between

Code:

Private Function MonthsUntil(Original,Future)

	If Not IsDate(Original) Or Not IsDate(Future) Then
		MonthsUntil = -1
		Exit Function
	Else
		Original 	= FormatDateTime(CDate(Original), 0)
		Future 		= FormatDateTime(CDate(Future), 0)
	End If

	Dim intDiff	: intDiff = CLng(DateDiff("s", Original, Future))
	Dim intSecs	: intSecs = CLng(60 * 60 * 24 * 30)
	 
	MonthsUntil = Int(intDiff / intSecs)
 
End Function