---
title: "Hjälp effektivisera kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51266-hjälp-effektivisera-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nill"
published: "2002-08-25T22:41:28.000Z"
updated: "2002-08-27T18:26:00.000Z"
replies: 4
views: 263
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/51266-hjälp-effektivisera-kod"
---

# Hjälp effektivisera kod

## #1 — nill, 2002-08-25T22:41Z

Har skrivit ett stycke ful kod. Detta är inget jag brukar bry mig om så länge det fungerar. Men detta fungerar inte som det ska. Jag bör få samma resultat på min dator som på webhotellets server men det får jag inte alltid. Deras server hänger väl inte med alltid eller något. Så koden behöver effektiviseras. Snälla hjälp mig med det:

		Dim Natt, Kvar, KvarM, Tid
		Natt = DateDiff("d", "2002-07-24", 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/51266

## #2 — nill, 2002-08-26T19:23Z

bump

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

## #3 — @nders, 2002-08-26T19:28Z

> **nill skrev:**
>
> Jag bör få samma resultat på min dator som på webhotellets server men det får jag inte alltid.

Och vad är det för skillnad då? När det inte stämmer, hur ser det då ut hos dig jämfört med kodkörning på servern?

Mvh,

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

## #4 — nill, 2002-08-27T18:24Z

t.ex. kan det stå att det är 11 h till nästa natt (KvarM). På min dator är det aldrig mer än 6 h, som det ska vara.
Ibland är det också helt fel natt.

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

## #5 — nill, 2002-08-27T18:26Z

KvarM = Kvar i förra inlägget.   Timmar kvar är variabeln: Kvar

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/51266-hjälp-effektivisera-kod