lnMonth = thisform.spnMonth.Value ** if date: lnMonth = MONTH(thisform.txtDate.Value) lnYear = YEAR(DATE()) ** if date: YEAR(thisform.txtDate.Value) ldStart = GOMONTH(DATE(lnYear, lnMonth, 1),2)-1 ldEnd = GOMONTH(DATE(lnYear+1, lnMonth, 1),2)-1With VFP before sp3:
lnMonth = thisform.spnMonth.Value ** if date: lnMonth = MONTH(thisform.txtDate.Value) lnYear = YEAR(DATE()) ** if date: YEAR(thisform.txtDate.Value) ldStart = GOMONTH(CTOD(ALLTRIM(STR(lnMonth))+"/01/"+ALLTRIM(STR(lnYear))),2)-1 ldEnd = GOMONTH(CTOD(ALLTRIM(STR(lnMonth))+"/01/"+ALLTRIM(STR(lnYear+1))),2)-1