Function Str2Date
  Lparameters tcStr
  Local lcMonth, lnDay, lnMonth, lnYear
  lcMonth = Chrtran(m.tcStr,'1234567890','')
  lnDay  = Val(m.tcStr)
  lnYear = Year(Ctod('1/1/'+;
    substr(m.tcStr,Atc(m.lcMonth,m.tcStr)+Len(m.lcMonth))))
  If Len(m.lcMonth) < 3 ;
  	or m.lnDay = 0 ;
  	or m.lnYear = 0
  	return {}
  endif
  For lnMonth=1 To 12
    If Upper(Cmonth(Date(2000,m.lnMonth,1))) = m.lcMonth
      Return Date(m.lnYear, m.lnMonth, m.lnDay)
    Endif
  Endfor
  Return {}