I haven't tested it but you could try this;

StartOfMonth="01/02/2000"
NoOfWeeks = Datediff("ww",StartOfMonth,DateAdd("m",1,StartOfMonth))



------------------
Mark "Buzby" Beeton
VB Developer
[email protected]