övergång från 23.00-01.00 ?

erkaMedlem sedan dec. 19996 522 inlägg

Trådstart9 okt. 2000 22:40#1

Det här scriptet strular sig när klockar går över till en ny dag, tex 23-24

Dim Dag, Tid, Program
Dag = Weekday(Now-1)
Tid = Hour(Now)

'Måndag
If Dag = 1 And Tid > 0 And Tid < 6 Then
Program = "1"
ElseIf Dag = 1 And Tid > 5 And Tid < 10 Then
Program = "2"
ElseIf Dag = 1 And Tid > 9 And Tid < 14 Then
Program = "3"
ElseIf Dag = 1 And Tid > 13 And Tid < 15 Then
Program = "4"
ElseIf Dag = 1 And Tid > 14 And Tid < 18 Then
Program = "5"
ElseIf Dag = 1 And Tid > 17 And Tid < 21 Then
Program = "6"
ElseIf Dag = 1 And Tid > 20 And Tid < 23 Then
Program = "7"
ElseIf Dag = 1 And Tid > 22 And Tid < 24 Then
Program = "8"

'Tisdag
ElseIf Dag = 2 And Tid > 0 And Tid < 6 Then
Program = "1"
ElseIf Dag = 2 And Tid > 5 And Tid < 10 Then
Program = "2"
ElseIf Dag = 2 And Tid > 9 And Tid < 14 Then
Program = "3"
ElseIf Dag = 2 And Tid > 13 And Tid < 15 Then
Program = "4"
ElseIf Dag = 2 And Tid > 14 And Tid < 18 Then
Program = "5"
ElseIf Dag = 2 And Tid > 17 And Tid < 22 Then
Program = "6"
ElseIf Dag = 2 And Tid > 21 And Tid < 24 Then
Program = "7"

sen kollar jag vad det är som är aktuellt just nu med en ifsats. Problemet är hur man ska skriva för att man få rätt tid vid övergången av 12 slaget ???

tohaMedlem sedan dec. 1999707 inlägg

10 okt. 2000 07:04#2

Du kollar inte timmen noll. If Tid >= 0 ...

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">

Select Case Dag
	Case 1 :
		If Tid >= 0 And Tid < 6 Then
			Program = "1"
		ElseIf Tid > 5 And Tid < 10 Then	Program = "2"
		ElseIf Tid > 9 And Tid < 14 Then	Program = "3"
		ElseIf Tid > 13 And Tid < 15 Then	Program = "4"
		ElseIf Tid > 14 And Tid < 18 Then	Program = "5"
		ElseIf Tid > 17 And Tid < 21 Then	Program = "6"
		ElseIf Tid > 20 And Tid < 23 Then	Program = "7"
		ElseIf Tid > 22 And Tid < 24 Then	Program = "8"
		End if
	Case 2 :
		If Tid >= 0 And Tid < 6 Then
			Program = "1"
		ElseIf Tid > 5 And Tid < 10 Then	Program = "2"
		ElseIf Tid > 9 And Tid < 14 Then	Program = "3"
		ElseIf Tid > 13 And Tid < 15 Then	Program = "4"
		ElseIf Tid > 14 And Tid < 18 Then	Program = "5"
		ElseIf Tid > 17 And Tid < 22 Then	Program = "6"
		ElseIf Tid > 21 And Tid < 24 Then	Program = "7"
		End if
End Select

</font>