Find startdag i uge

hvis du kun har ugenummeret er det umuligt. Du skal som min. også have året...

nåja... selvfølgelig.. jeg har også året.. jeg glemte bare at skrive.. min fejl.. :)

Så skal vi have bestemt hvilket ugenummer format der skal bruges. Der findes 3 måder til at bestemme hvornår ugenummerne begynder...

1. den uge hvor 1. jan er i.
2. den uge som har mindst 4 dage i det nye år.
3. den uge hvor alle dage er i det nye år.

det er nr. 2...

sDate = date 'ændres senere når der kommer en specifik dato.
Ugenr = DatePart("ww", sDate, 2, vbFirstFourDays)

<%@ language="vbscript" %>
<%
if( Request("action") = "calc" ) then
   
    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  )
end if
%>
<html>
<body>
<form name="frm">
Uge: <input type="text" name="month"><br>
År: <input type="text" name="year"><br>
<input type="hidden" name="action" value="calc"><br>
<input type="submit" value="beregn">
</form>
</body>
</html>

tak skal du have nute... endnu en gang har du hjælpet mig... læg et svar...

fino :)

- takker -

nute -> http://www.eksperten.dk/spm/495322
håber du kan hjælpe..