Undersøge om der findes en session der er et interval mindre

Ved ikke om jeg fatter dig helt men.. måske kan dette hjælpe dig
For i = 1200 to 1
  tempvar = "Tid-" & i
  If Session(tempvar) = "True" then
    Bla Bla
  End if
Next
Håber det hjælper, ellers må du lige skrive igen..
MVH Danq

ups du skal lige huske at skrive en linje mellem "End if" og "Next"
det skal se sådan her ud:
  End if
  i = i - 1
Next

Jeg kan allerede nu se at der er et problem med overstående. Jeg har min tid i en varriabel, TTime, altså skal jeg undersøge på denne måde:
For i = TTime to x
  Bla bla
  i = i - 1
Next
Det gør at hvis TTime = 1200 så vil den undersøge alle tal fra 1200 til 1161 hvilket den ikke skal. Den skal starter med at undersøge tallne fra 1160 i overstående tilfælde.

Her er så også et problem med x da x jo skal være min nuværende tid minus mit interval, altså x = TTime - Interval. Men har jeg igen en TTime på 1200 og et interval på 30 så undersøger den fra 1200 til 1170 og ikke fra 1160 til 1131. Kan du se hvad jeg mener. Systemet skal funger så TTime kan have et minutantal fra mellem 0 og 59 og at Intervallet kan ligge mellem 1 og 60.

Jeg tror jeg har fundet en måde at komme omkring det jeg beskrev i overstående kommentar:

        If Len(TTime) = 3 Then
            Tid = 0 & TTime
        Else
            Tid = TTime
        End If
       
        If Right(Tid, 2) = "00" Then
            NyTid = Left(Tid, 2) - 1 & 60
        Else
            NyTid = Tid
        End If
       
        For i = NyTid to (NyTid - Interval + 1)
            If Session("Tid-" & i) = "True" then
                Tid                 = Left(NyTid, 2) & ":" & Right(NyTid, 2)
                SkrivLinie Tid, strKommentar
              End if
            i = i - 1
        Next
       
        For i = NyTid to (NyTid + Interval - 1)
            If Session("Tid-" & i) = "True" then
                Tid                 = Left(NyTid, 2) & ":" & Right(NyTid, 2)
                SkrivLinie Tid, strKommentar
              End if
            i = i + 1
        Next

Derudover så jeg tilføjet en del der gerne skulle gøre at den også undersøger om der er nogen session i intervallet fremad der er true. Men jeg syntes ikke den udskriver det den skal. Den melder heller ikke nogen fejl. Er der nogen der kan se om der er noget galt med min kode ...

Jeg ved at jeg har et par sessions med følgende tal som den ikke udskriver:
2000
2001
2002
2003
2004

Rettelse ... 2000 udskriver den fint nok og det er også derfor den gerne skulle gå videre og undersøge om den skal udskrive noget, altså 2001 - 2004

Sikke noget l*** jeg fik lavet der ... det gik lige lidt for hurtigt. Den første For skal natruligvis se således ud:

        For i = (NyTid - Interval + 1) to (NyTid - 1)
            If Session("Tid-" & i) = "True" Then
                Tid                 = Left(i, 2) & ":" & Right(i, 2)
                SkrivLinie Tid, strKommentar
              End if
        Next

Den virker også fint. Kigger lige på nr 2 og ser om jeg skal have hjælp til den!

ok jeg fik ikke lige rigtig opfattet om det jeg skrev hjalp dig, men endelig skriv hvis du skal bruge mere.. :P

Den sidste For har jeg rettet til følgende:

        For i = (Tid + 1) to (Tid + Interval - 1)
            If Session("Tid-" & i) = "True" then
                Tiden                 = Left(i, 2) & ":" & Right(i, 2)
                SkrivLinie Tiden, strKommentar
            End if
        Next

Så virker det næsten, men ... ja der er altid en men ... er min sluttid eksempelvis 20:04 skal den slutte med at skrive 20:00 og så 20:04 men det gør den ikke. Den skrive:
19:30
20:04
20:00

Hvorfor gør den det?

hmm fatter ikke helt.. kan du ikke prøve at poste hele din kode?

2 sek ... jeg tror jeg har fået fikset det ... nu har jeg vidst lige kun et problem tilbage ... skal lige se omd et er et problem jeg skla have hjælp til ...

Jeg fik det sku til at virke ... whee! Sikke en omgang! Tak for start tippet det satte gang i hele tanke processen!