---
title: "Hjälp med datumkod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/52195-hjälp-med-datumkod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nill"
published: "2002-09-04T14:18:34.000Z"
updated: "2002-09-04T14:18:34.000Z"
replies: 0
views: 267
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/52195-hjälp-med-datumkod"
---

# Hjälp med datumkod

## #1 — nill, 2002-09-04T14:18Z

Har tidigare skrivit att min kod som räknar datum inte tolkas så bra av mitt webhotell.

Jag vill ha en snutt kod som gör följande saker. 
Delar upp ett dygn i 4 delar  (00-06, 06-12, 12-18, 18-24) (Nätter).   Koden ska från ett visst datum beräkna vilken "Natt" det är just nu och också hur många timmar och minuter det är kvar till nästa natt.
Kan någon ge mig förslag på något sånt?

Det jag själv skrev fungerar inte alltid på webhotellet (flippar ur).

'Natt-grejs
		Dim Natt, Kvar, KvarM, Tid
		Natt = DateDiff("d", "2002-09-01", Date) \* 6
		Tid = Time

		If Tid \> "00:00:00"  And Tid \< "06:00:00" Then
			Natt = Natt + 1
			Kvar = Datediff("h", Tid, "05:00:00")
			KvarM = Datediff("n", Tid, "06:00:00") - cInt(Datediff("n", Tid, "06:00:00") / 60) \* 60 
		End If
		If Tid \> "06:00:00"  And Tid \< "12:00:00" Then
			Natt = Natt + 2
			Kvar = Datediff("h", Tid, "11:00:00")
			KvarM =  Datediff("n", Tid, "12:00:00") - cInt(Datediff("n", Tid, "12:00:00") / 60) \* 60 
		End If
		If Tid \> "12:00:00"  And Tid \< "18:00:00" Then
			Natt = Natt + 3
			Kvar = Datediff("h", Tid, "17:00:00")
			KvarM = Datediff("n", Tid, "18:00:00") - cInt(Datediff("n", Tid, "18:00:00") / 60) \* 60 
		End If
		If Tid \> "18:00:00"  And Tid \< "23:59:59" Then
			Natt = Natt + 4
			Kvar = Datediff("h", Tid, "23:00:00")
			KvarM =  Datediff("n", Tid, "00:00:00") - cInt(Datediff("n", Tid, "00:00:00") / 60) \* 60 
		End If

		If KvarM \< 0 Then KvarM = 60 - (KvarM \* (-1))
		If KvarM = 0 Then Kvar = Kvar + 1

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/52195-hjälp-med-datumkod