Is self is between the months of a and b?

Property definitions

date $ Date :: is_between_months
	# Is `self` is between the months of `a` and `b`?
	private fun is_between_months(a, b: Date) : Bool
	do
		if not self.is_between_years(a,b) then return false
		return (a.month > month and b.month < month) or (b.month > month and a.month < month) or (a.month == month or b.month == month)
	end
lib/date/date.nit:144,2--149,4