---
title: "Tid ifrån datetime"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/104268-tid-ifrån-datetime"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2004-05-24T22:38:06.000Z"
updated: "2004-05-25T09:58:22.000Z"
replies: 5
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/104268-tid-ifrån-datetime"
---

# Tid ifrån datetime

## #1 — Jesper T, 2004-05-24T22:38Z

mydte kan både ha formatet (ÅÅÅÅ-MM-DD) eller (ÅÅÅÅ-MM-DD TT:MM:SS)
Och för att alltid få ut formatet TT:MM så gör jag så här:

```
Dim mydte 
mydte="2001-05-06 18:30:00"
mydte=left(arrcalRS2(0,z) &" 00:00:00",19)
Response write left(Right(mydte,8),5)
```

Men det känns ju lite roddigt.

1\.) Tips?

2\.) (Frånkopplad förra frågan) Finns det ngn färdig funktion för att kolla om det är vinter/sommartid?

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

## #2 — Engine^, 2004-05-24T22:54Z

1) Jag tror det här är precis det du letar efter: [FormatDateTime](http://www.devguru.com/Technologies/vbscript/quickref/formatdatetime.html).

2) Det är ju bara att kolla om dagens datum är mellan sommar- och vintertid. Är det det så är det sommartid.

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

## #3 — Jesper T, 2004-05-24T23:00Z

1) Tack
2) Ja ha, hur gör man det då?

För kännedom:
Sommartiden börjar klockan 02.00 normaltid sista söndagen i mars.
Sommartiden upphör klockan 03.00 den sista söndagen i oktober.

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

## #4 — Engine^, 2004-05-25T08:32Z

Tja... med en smart liten uträkning ;)

```
Function IsSummerTime(dteDate)
  For i = 1 To 7
    If WeekDay(DateAdd("d", -i, DateSerial(Year(Date), 4, 1)), 2) = 7 Then
      strBegin = Year(Date) & "-3-" & 31 - i & " 2:00"

      Exit For
    End If
  Next

  For i = 1 To 7
    If WeekDay(DateAdd("d", -i, DateSerial(Year(Date), 11, 1)), 2) = 7 Then
      strEnd = Year(Date) & "-11-" & 32 - i & " 3:00"

      Exit For
    End If
  Next

  If dteDate > CDate(strBegin) And dteDate < CDate(strEnd) Then
    IsSummerTime = True
  Else
    IsSummerTime = False
  End If
End Function
```

Nu är frågan om den här funktionen verkligen är smart och fungerar eller om den trilskas... jag är nyvaken och det är inte alltid min otestade kod gör som det var tänkt då ;)

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

## #5 — Jesper T, 2004-05-25T08:50Z

Detta verkar funka:

```
Function IsSummerTime(dteDate)
Dim strBegin,strEnd
  For i = 1 To 7
    If WeekDay(DateAdd("d", -i, DateSerial(Year(Date), 4, 1)), 2) = 7 Then
      strBegin = Year(Date) & "-03-" & 32 - i & " 02:00:00"
      Exit For
    End If
  Next
  
  For i = 1 To 7
    If WeekDay(DateAdd("d", -i, DateSerial(Year(Date), 11, 1)), 2) = 7 Then
      strEnd = Year(Date) & "-10-" & 32 - i & " 03:00:00"
      Exit For
    End If
  Next
 
  If datediff("h",dteDate, strBegin)<0 and datediff("h",dteDate, strEnd)>0 Then
    IsSummerTime = True
  Else
    IsSummerTime = False
  End If
End Function
```

Tack!

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

## #6 — Engine^, 2004-05-25T09:58Z

Varsågod :)

Det var som tusan... jag som hade en grusgrop i varje öga :e

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/104268-tid-ifrån-datetime