>You have two dates, say 12-31-2007 and 03-01-2008. How can I count how months there are from 1st date to 2nd date. The answer I'm looking for is 4 (Dec 07, Jan 08, Feb 08, and Mar 08) - (Given the days maybe 28,29,30,or 31)

Procedure cntmonths(ts,te)
  Local lnMonths, ix, ldNext
  lnMonths = 0
  For ix=0 To m.te-m.ts
    lnMonths = m.lnMonths + 1
    ldNext = Gomonth(ts,m.ix)
    If Year(m.ldNext) = Year(m.te) And Month(m.ldNext) = Month(m.te)
      Exit
    Endif
  Endfor
  Return m.lnMonths

Cetin