ugenummer plus lidt ekstra

Jeg kan lave det i ASP, men så må VB være noget af det samme:

Aktuelt ugenummer:
DatePart(\"ww\", Date)

Første dag:
WeekdayName(Day(DateAdd(\"d\", (-Day(Date))+1, Date)))

Ugenummer:
Ugenummer = DatePart(\"ww\", DateAdd(\"ww\", -4, Date)

Hvis f.eks. det aktuelle ugenummer er 2, og du minusser 4 uger, vil den aktuelle uge automatisk blive 50..

1: TheWeek=datepart(\"ww\", Date(), 2)

Og du kan finde ud af hvor mange dage der er i den aktuelle måned sådan her:

DatePart(\"d\", DateAdd(\"d\", -1, DateAdd(\"d\", (-Day(DateAdd(\"m\", +1, Date)))+1, DateAdd(\"m\", +1, Date))))

The default for the frist day of week is SUNDAY (1), which is NOT correct in DK which uses MONDAY (2)
So DatePart(\"ww\", Date, 2) is \"MORE\" correct!

Her er alle 4, Der er godt nok lavet i excel vba men skulle virke alligevel
Sub test1()
dato = CDate(\"10-05-2001\")
uge = DatePart(\"WW\", dato, vbMonday, vbFirstFourDays)
Debug.Print uge
dato28 = dato - 28
Debug.Print DatePart(\"WW\", dato28, vbMonday, vbFirstFourDays)
ugedag = Weekday(\"01-\" & Month(Date) & \"-\" & Year(Date))
Debug.Print ugedag
antaldage = CDate(\"01-\" & Month(Date) + 1 & \"-\" & Year(Date)) - CDate((\"01-\" & Month(Date) & \"-\" & Year(Date)))
Debug.Print antaldage
End Sub

bak -> det her forstår jeg ikke:

dato28 = dato - 28
Debug.Print DatePart(\"WW\", dato28, vbMonday, vbFirstFourDays)

hvad viser den?

Sorry jeg ikke skrev det men det er ugenummeret - 4 uger, jeg har bare omregnet det til 28 dage for så tæller den ikke forkert uge 1, 2,3 og 4.

jelle, hvad er det galt med min??

zeth -> det er i asp, og jeg gidder ikke sidde at bøvle med at få lavet det om til vb - så enkelt er det :)

whats the difference between ASP (VBScript) and VB?

bak -> ok men har du en læsnign på mit \"frem-og-tilbage\"-problem, altså plus/minus de 4 uger?

Dim wAdd

wAdd = -4

Debug.print datepart(\"ww\", DateAdd(\"ww\", wAdd, Date), 2,2 )

Jelle, det er det samme ;-)

jelle>hows it going?

thanks, I had given up here :o)