d. 1. i en given måned

'Udregn den første i månde, den trække antal dage fra daoten
dato = DateAdd("d",1-day(date),date)

og så bruger du
weekday(dato,vbMonday)

Du får så mange tak. Det virker. Gider du oversætte
dato = DateAdd("d",1-day(date),date)
til dansk?

Jeps..
DateAdd kan ligge til dage/måneder/år til en dato.
DateAdd(enhed,antal,udgangs dato)

For at få den førte i måneden finde man ved hjælpe af Day(dato) som give datonummeret (eks 5 for i dag). Så trækker man 5 fra Dags dato +1 (ellers ville de være den sidste i forrige månede).  Date svare til now, date returnere bare kun en dato hvorimod now er dato+tid
For at ligge dage til bruger "d"

DateAdd("d", 1-Day(date), Date) giver den førte i månede.

Spørg bare igen hvis det lød lidt forvirdne :)

http://www.devguru.com/Technologies/vbscript/quickref/dateadd.html

Nu skrev jeg som om den kun kan ligge dage/måneder/år til, men som du kan se af linket kan den ligge alt muligt til dato/tid punkt.

Måske fattede jeg ikke helt, så kan vi ikke lige kigge på ugenr.?
Jeg prøvede med:
uge = DateAdd("ww",1-day(date),date)
Med der bliver uge = 6/7/2002
og det skal den jo ikke.
Det jeg vil ha er den uge hvori den 1. i måneden befinder sig. Lige nu altså 27.

Uge nummer findes ved hjælpe af DatePart

dato = DateAdd("d",1-day(date),date)
ugenr = DatePart("ww", dato, VBFirstFourDays, VBMonday)

Denne:
uge = DateAdd("ww",1-day(date),date)
Trækker i dag: 1-day(date)  : 1-5 =4 uger fra datoen.

Hvis det ikke virker med konstaerne så:

uge = DateAdd("ww",1-day(date),date)
ugenr = DatePart("ww", dato, 2, 2)