Close Data All
Set Date short
Set Date French
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
Insert Into ycurs Values (xm+i,Month(xm+i),Cdow(xm+i))
Endfor
Sele ycurs
Browse For xmonth=Month(Date0) And Allt(xday)=="lundi" Nowait
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....