>Close Data All >Set Date short >Set Date French &&change to american > >Create Cursor ycurs(xdate d,xmonth i,xday c(10)) >Local Date0 >Date0=Inputbox("Any date ?","",Trans(Date()) ) >Date0=Ctod(Date0) > > >Local xm >xm=Ctod("01/01/"+Trans(Year(Date0)) ) > > >For i=1 To 365 &&gather all dates of specified year of date typed > Insert Into ycurs Values (xm+i,Month(xm+i),Cdow(xm+i)) >Endfor > > >Sele ycurs >*Brow >Browse For xmonth=Month(Date0) And Allt(xday)=="lundi" Nowait &&change to monday >Count To nd For xmonth=Month(Date0) And Allt(xday)=="lundi" >Messagebox ( "month "+Trans(Month(Date0))+"/"+Trans(Year(Date0))+" contains : "+Trans(nd)+" lundi ",0+32+4096) >Use In "ycurs" > >Retu >>can extend to any day....