Visning af 4 uger af gangen..

så du skal principielt kun finde ugenummer ?

/nute

skal dette gå ud fra en dato, eller hvad ? hvis du har en dato, så er det jo nemt nok ... så finder du bare ugenummeret for denne dato, og laver dine skemaer ud fra dette ?!

ok... jeg prøver at forklare det lidt nærmere

Systemet starter med at finde dags dato (ikke noget problem)
Udfra den findes uge nummeret (heller ikke noget problem)
Denne uge skal så sættes ind i sammenhængen, som vist i de to skemaer. Hvis nu vi er i uge 3, så skal ugerne 1,2,3,4 vises, hvis vi går over i uge 5 skal ugerne 5,6,7,8 vises. Hvis vi kommer til uge 10 skal ugerne 9,10,11,12 vises osv.

Hjalp det?

hvad er systematikken her ?? ved visning af uge 3, så starter du visningen på uge 1 - ved visning af uge 5, så starter du med visningen i samme uge - og ved visning af uge 10, så starter du i uge 9 ... hvordan hænger det sammen ??

sådan kørte det gamle system.. og sådan vil jeg gerne have det nye system til også at køre.. Det hænger sådan sammen, at der bare skal vises 4 uger... det har bare noget med brugervenlighed at gøre... skal måske lige siges, at skemaet skal bruges til at hænge op uden for et lokale...

Jeg ville bare høre om det kan lade sig gøre?

du bliver nødt til at angive nogle regler for udlistinger. hvis det ikke er direkte logisk rækkefølge på de uger der skal listes ud, så bliver man nødt til at have nogle regler som ligger til grund for udlistingen

ok.
Der skal listes 4 uger af gangen.
De skal listes på følgende måde:
1,2,3,4
5,6,7,8
9,10,11,12
13,14,15,16
17,18,19,20
21,22,23,24
25,26,27,28
29,30,31,32
33,34,35,36
37,38,39,40
41,42,43,44
45,46,47,48
49,50,51,52

Jeg tænkte hvis der nu var en smart måde at lave det på i stedet for at skulle lave IF sætninger elle SELECT CASE.

Dim arrPeriod : arrPeriod = Array( "", _
"1,2,3,4", _
"5,6,7,8", _
"9,10,11,12", _
"13,14,15,16", _
"17,18,19,20", _
"21,22,23,24", _
"25,26,27,28", _
"29,30,31,32", _
"33,34,35,36", _
"37,38,39,40", _
"41,42,43,44", _
"45,46,47,48", _
"49,50,51,52" )

Dim intWeek : intWeek = 3 ' fra din beregning
Dim arrWeeks : arrWeeks = Split( arrPeriod( intWeek ), "," )

for i = 0 to Ubound( arrWeeks )
    Response.write( "Uge " & arrWeeks(i) &  "<br>" )
next

nu kører det sådan, at hvis jeg indtaster fx 1, så kommer ugerne 1,2,3,4, men hvis jeg indtaster 2, så kommer 5,6,7,8 og det passer jo ikke. Hvis jeg indtaster 2, så skal ugerne 1,2,3,4 stadig vises...

den skal først skifte ugerne ud når man når til fx uge 5

ahh... sorry ... my bad:

Dim arrPeriod : arrPeriod = Array( "", _
"1,2,3,4", _
"5,6,7,8", _
"9,10,11,12", _
"13,14,15,16", _
"17,18,19,20", _
"21,22,23,24", _
"25,26,27,28", _
"29,30,31,32", _
"33,34,35,36", _
"37,38,39,40", _
"41,42,43,44", _
"45,46,47,48", _
"49,50,51,52" )

Dim intWeek : intWeek = 8 ' fra din beregning
for i = 0 To UBound( arrPeriod )
    if( InStr( "," & arrPeriod( i ) & ",", "," & intWeek & "," ) > 0 ) then
        Dim arrWeeks : arrWeeks = Split( arrPeriod( i ), "," )
   
        for j = 0 to Ubound( arrWeeks )
            Response.write( "Uge " & arrWeeks(j) &  "<br>" )
        next
        Exit For
    end if
next

/nute

damn der er stil over... læg et svar, og pointene kommer... :) tak for hjælpen igen

stil over det... :)

fino :-) ... bare hyggeligt at kunne hjælpe

/nute

- takker -