Datoer ud fra ugenummer

Dim strYear : strYear = "2004"
Dim strWeek : strWeek = "14"
Dim objDate : objDate = DateSerial( strYear, "01", "01" )
Dim objNewDate : objNewDate = DateAdd( "ww", CInt( strWeek ) - 1, objDate )
Dim intDayOfWeek : intDayOfWeek = WeekDay( objNewDate )
Dim objStartDate : objStartDate = DateAdd( "d", intDayOfWeek - 8, objNewDate )
Dim strEndDate : strEndDate = DateAdd( "d", 8 - intDayOfWeek, objNewDate )

Response.Write( "Uge " & strWeek & " går fra " & objStartDate & " til " & strEndDate )


du skal være obs på følgende:

intDayOfWeek - 8
og
8 - intDayOfWeek

det kommer an på hvilken dag din server har som default "first day of week". som default bruges søndag (som er "dag 0". min maskine har mandag, som er "dag 1" som default.

for at finde ud hvilken værdi du skal bruge, så skal du lægge 7 til værdien for dagen ... hvis mandag er default, så skal du bruge (7+1=) 8. hvis lørdag er default, skal du bruge (7+7=) 14

prøv ...

/nute

Det der er virkelig høj klasse! Det virker jo perfekt!

Og dog...

Skifter jeg året til 2005 går det galt. Så indeholder mine uger kun 2 dage..?

ups ... en lille bug ...denne skulle fungere:

Dim strWeekDays : strWeekDays = "Søndag,Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag"
Dim arrWeekDays : arrWeekDays = SPLIT( strWeekDays,"," )
Dim strYear : strYear = "2004"
Dim strWeek : strWeek = "9"
Dim objDate : objDate = DateSerial( strYear, "01", "01" )
Dim intFirstWeekDay : intFirstWeekDay =  WeekDay( objDate, 3 )
Dim objNewDate : objNewDate = DateAdd( "ww", CInt( strWeek ) - 1, objDate )
Dim intDayOfWeek : intDayOfWeek = WeekDay( objNewDate, 2 )
Dim objStartDate : objStartDate = DateAdd( "d", -( intFirstWeekDay ), objNewDate )
Dim objEndDate : objEndDate = DateAdd( "d", ( 7 - intDayOfWeek ), objNewDate )
Response.Write( "Uge " & strWeek & "/" & strYear & " går fra " & arrWeekDays( WeekDay( objStartDate ) - 1 ) & " den " & objStartDate  )
Response.Write( " til " & arrWeekDays( WeekDay( objEndDate ) - 1 ) & " den " & objEndDate  )

/nute

Ja, det var vist bedre. Super!

Tak for hjælpen!

lukker du så spørgsmålet ?

;o]