Avatar billede elpres Nybegynder
06. november 2003 - 15:27 Der er 1 kommentar og
1 løsning

returnere startdag og slutdag ifølge uge nummer

jeg har brug for en ASP funktion der ud fra et måneds nr, et årstal og et uge nr, kan returnere start og slut dag for den pågældende uge.
  jeg har lavet denne her men der går noget galt i den da den ikke tager højde for at en uge kan strække sig ind i en anden måned.. øv øv

function getWeekDayInt(wkNo,moNo,YeNo) 'Retunere 2 datoer som indikere et givent ugenummers start og slutdato 
    dim days, stopper,tempResStart,tempResSlut
    stopper = false
    days = getDaysInMonth(moNo,YeNo)
    RESPONSE.Write("days="&days&"<BR>")
    for i=1 to days
        tempDate = i&"/"&moNo&"/"&YeNo
        tempRes = datepart("ww",tempDate)
        if tempRes = wkNo and stopper= false then
            stopper = true
            tempResStart = dateadd("d",0,tempDate)'Sørger for at formatet er det samme
            tempResSlut = dateadd("d","6",tempDate)           
        end if
    next
    if tempResSlut <> "" and tempResStart <>"" then
        getWeekDayInt = tempResStart&","&tempResSlut
    else
        getWeekDayInt = "fail"
    end if
end function
Avatar billede eagleeye Praktikant
06. november 2003 - 16:16 #1
De behøver ikke månede bare uge og år:




function getDatoer(uge,aar)
d = DateSerial(aar, 1, 1)    ' 1/1/i år

'find mandag i uge 1
If DatePart("ww", d, 2, 2) = 1 Then    'Hvis 1/1 er i uge 1
  While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
    d = DateAdd("d", -1, d)
  WEnd
Else
  While(DatePart("ww", d, 2, 2) <> 1)  'find næste mandag
    d = DateAdd("d", 1, d)
  WEnd
End If

'd er nu mandag i uge 1
d = DateAdd("d", 7*(uge-1), d) 'juster til ugenummer, mandag
d2 = DateAdd("d",6,d)

getDatoer = d&","&d2
end function


Response.Write getDatoer(45,2003)
Avatar billede elpres Nybegynder
06. november 2003 - 17:39 #2
det virker. :0) tak for det
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester