veckor

[peterbladh]

Hej

 

Finns det något smidigt sätt att få ut aktuell vecka?

 

tacksam för svar!

peterbladh:)

[Mikael Ericsson]

Datepart("ww",dittdatum)

Kolla på

http://msdn.microsoft.com/scripting/

för vidare info.

 

 

 

[ML2]

Använder detta:

<%

Function VNUM_NOW()

dNow = DateSerial(Year(Now), Month(Now), Day(Now))

For i = 1 To 7

dJan1 = WeekDay(DateSerial(Year(Now), 1, i))

If dJan1 = 2 Then dFirstmon = DateSerial(Year(Now), 1, i)

Next

dJan1 = WeekDay(DateSerial(Year(Now), 1, 1))

If dJan1 = 1 Then dJan1 = 7 Else dJan1 = dJan1 - 1

If dJan1 > 4 Or dJan1 = 1 Then dDaycount = dNow + 7 - dFirstmon Else dDaycount = dNow + 14 - dFirstmon

If Fix(dDaycount / 7) = 0 Then VNUM_NOW = 53 Else VNUM_NOW = Fix(dDaycount / 7)

End Function%>

<% = VNUM_NOW%>

 

 

 

[clown]

Enklast är nog:

week(now())

[clown]

Sorry, dubbeltryckning...

[inlägget ändrat 2000-06-30 10:14:06 av clown]