---
title: "övergång från 23.00-01.00 ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6833-övergång-från-23-00-01-00"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "erka"
published: "2000-10-09T22:40:00.000Z"
updated: "2000-10-10T07:04:00.000Z"
replies: 1
views: 144
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6833-övergång-från-23-00-01-00"
---

# övergång från 23.00-01.00 ?

## #1 — erka, 2000-10-09T22:40Z

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 ???

Permalänk: https://www.webforum.nu/p/6833

## #2 — toha, 2000-10-10T07:04Z

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>
```

Permalänk: https://www.webforum.nu/p/250832

---

Tråden på webben: https://www.webforum.nu/amne/asp/6833-övergång-från-23-00-01-00