---
title: "If Date större än datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9129-if-date-större-än-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Janspeed"
published: "2001-04-24T08:54:00.000Z"
updated: "2001-04-24T13:54:00.000Z"
replies: 16
views: 500
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/9129-if-date-större-än-datum"
---

# If Date större än datum

## #1 — Janspeed, 2001-04-24T08:54Z

Läser ett svenskt datum från en textfil och lägger den i variabeln datum 

```
'Datumet ser ut så här i filen:  2001-04-24
datum = T.ReadLine
```

sedan vill jag jämföra datumet med dagens datum nånting så här:

```
If date > datum then 

....

End If
```

Finns det något smidigt sätt att lösa detta på?

Tacksam för svar :)

//JANspeed

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

## #2 — Janspeed, 2001-04-24T08:56Z

Glömde att tillägga att jag la till raden:

Session.LCID = 1053

längst upp i koden.

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

## #3 — @nders, 2001-04-24T08:56Z

```
if date > cdate(datum) then
```

mvh,

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

## #4 — Vide, 2001-04-24T08:58Z

Berätta gärna vad som inte fungerar... :)

Konvertera din textsträng du får ifrån filen med Cdate():

datum = Cdate(T.ReadLine)

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

## #5 — Janspeed, 2001-04-24T09:12Z

Jag provade med CDate och utan men det funkar inte.

```

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'CDate'
```

Response.Write IsDate(Datum) ger false

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

## #6 — @nders, 2001-04-24T09:13Z

då ser inte datumet i textfilen korrekt ut...

```
response.write datum
```

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

## #7 — Janspeed, 2001-04-24T09:15Z

FSO:n funkar för den har jag använt tidigare.

Och jag läser rätt rad så där är det inga problem. :)

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

## #8 — Janspeed, 2001-04-24T09:15Z

Datumet: 2001-04-24

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

## #9 — @nders, 2001-04-24T09:26Z

hmmm. du gör inget annat med datum dah? finns det mer kod som du kan visa oss?

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

## #10 — Janspeed, 2001-04-24T09:38Z

Visst! Koden scannar efter filer i en mapp och om det finns några som stämmer så skriver den ut rubriken i filen som länk. 

```
<%

Session.LCID = 1053

'variabler
Dim objFSO, readFSO, folderPath, objFolder, fileObject, T, Output, Datum

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set readFSO = Server.CreateObject("Scripting.FileSystemObject")

'Skapa sökväg
folderPath = Server.MapPath("/forum/")

'Get folder
Set objFolder = objFSO.GetFolder(folderPath)

If objFolder.Files.Count > 0 Then
		
If objFolder.Files.Count = 1 Then
Response.Write "Klicka på följande länk:<br><br>"
Else
Response.Write "Klicka på någon av följande länkar:<br><br>"
End If

'Loop genom filer
For Each fileObject in objFolder.Files

Set T = readFSO.OpenTextFile(fileObject)

Do Until T.Line = 12
T.SkipLine
Loop

Response.Write T.ReadLine & "<br>"
Datum = T.ReadLine
Response.Write "Går att konvertera till datum: " & IsDate(Datum) & "<br>"
Datum = CDate(T.ReadLine)

Do Until T.Line = 15
T.SkipLine
Loop

Response.Write T.ReadLine
Output = T.ReadLine
		
If Date < Datum Then
Response.Write "<a href=/forum/" & fileObject.Name & " target=information>" & Output & "</a><br><br>"
End If

T.Close

Next

Else

Response.Write "Det finns inga objekt<br><br>"

End If

%>
```

\[Redigerat av Janspeed den 24 apr 2001\]

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

## #11 — nakoz, 2001-04-24T09:49Z

testat trimma båda två? 
de är jag tvungen å göra om jag ska matcha datum.

```
If Trim(Date) < Trim(Datum) Then
```

mvh.

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

## #12 — Janspeed, 2001-04-24T10:49Z

Nope hjälpte inte.

Det verkar som om det var ett mycket komplexare problem än vad jag trodde?

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

## #13 — @nders, 2001-04-24T11:02Z

som jag tolkar koden läser du ju in tre rader här:

```
Response.Write T.ReadLine & "<br>"
Datum = T.ReadLine
Response.Write "Går att konvertera till datum: " & IsDate(Datum) & "<br>"
Datum = CDate(T.ReadLine)
```

ändra alltså till:

```
Datum = T.ReadLine
Response.Write Datum & "<br>"
Response.Write "Går att konvertera till datum: " & IsDate(Datum) & "<br>"
Datum = CDate(Datum)
```

det du kikar isdate() på är alltså raden under datumet, och det du kör cdate på är raden under det. enligt din originalkod alltså. så tolkar jag det i alla fall.

rapportera! ;)

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

## #14 — Janspeed, 2001-04-24T11:18Z

I och med att jag höll på att testa så blev det lite många tilldeningar av datumet från filen men nu börjar det likna något.

Jag skrev som du sa @nders och tack vare det så börjar det släppa.

Tydligen så gick det inte att köra CDate direkt på T.ReadLine

```
Datum = CDate(T.ReadLine)
```

utan man måste först tilldela RedLine till en variabel.

```
Datum = T.ReadLine
Datum = CDate(Datum)
```

Nu borde det väl gå att använda DateDiff i if-satsen? Ger den minusvärden om dagen har passerat?

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

## #15 — @nders, 2001-04-24T11:26Z

Nu borde det väl gå att använda DateDiff i if-satsen? 
jepps...

Ger den minusvärden om dagen har passerat?
testa.... :)

mvh,

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

## #16 — Janspeed, 2001-04-24T13:41Z

Helt guld! Det funkade till och med utan DateDiff. Det gick med en enkel Date \< Datum. Tackar hemskt mycket för hjälpen! :)

//JANspeed

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

## #17 — @nders, 2001-04-24T13:54Z

vasse! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9129-if-date-större-än-datum