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