---
title: "Loopa ut idag, igår, 11 okt, 10 okt osv.?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/113482-loopa-ut-idag-igår-11-okt-10-okt-osv"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2004-10-13T12:33:15.000Z"
updated: "2004-10-14T15:00:16.000Z"
replies: 13
views: 450
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/113482-loopa-ut-idag-igår-11-okt-10-okt-osv"
---

# Loopa ut idag, igår, 11 okt, 10 okt osv.?

## #1 — Bosse168, 2004-10-13T12:33Z

Hur gör man för att få till en sådan här loop?

**Idag**
@nders
LarsG
@nders
@nders

**Igår**
LarsG
LarsG
@nders

**11 okt**
LarsG
@nders
LarsG
LarsG

*Osv.*

Förstår att man ska göra något med datumet men inte vad.
P.s. namnen var dom enda jag kom på. ;)

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

## #2 — LarsG, 2004-10-13T15:04Z

```
for d = date() to #2004-10-01# step -1
response.write "<b>" & d & "</b><br>"
'övrig hantering
next
```

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

## #3 — Bosse168, 2004-10-13T15:40Z

Ok hur för jag fram den i en redan befintlig loop?

```
SQL = "SELECT * FROM Tabell ORDER BY datum DESC"

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Connect, 3,3

Do Until Rs.EOF
%>

[B]Datumet (idag/igår/osv.)[/B]
Övrig info:<%=Rs(0)%>
<%

Rs.MoveNext
Loop
Rs.Close : Set Rs=nothing
```

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

## #4 — LarsG, 2004-10-13T15:46Z

```
d = cdate(rs("datum"))
if d = date() then
response.write "Idag"
elseif d = date() - 1 then 
response.write "Igår"
else
response.write d
end
```

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

## #5 — Bosse168, 2004-10-13T15:51Z

Men då blir det ju

**Idag**
@nders
**Idag**
LarsG
**Idag**
@nders
**Idag**
@nders

**Igår**
LarsG
**Igår**
LarsG
**Igår**
@nders

**11 okt**
LarsG
**11 okt**
@nders
**11 okt**
LarsG
**11 okt**
LarsG

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

## #6 — LarsG, 2004-10-13T15:58Z

Du får hålla koll på om du har fått ett nytt datum

```
pd = #9999-12-24#
while
   d = cdate(rs("datum"))
   if d <> pd then
      'skriv ut datum
      pd = d
   end if
end while
```

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

## #7 — Bosse168, 2004-10-13T16:00Z

Hmm har inte en aning hur man får ihop dessa kod snuttar... :stud

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

## #8 — LarsG, 2004-10-13T16:26Z

```
SQL = "SELECT * FROM Tabell ORDER BY datum DESC"

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Connect, 3,3

pd = #9999-12-24#
Do Until Rs.EOF
   d = cdate(rs("datum"))
   if  pd <> d then
       if d = date() then
          response.write "<b>Idag</b><br>"
       elseif d = date() - 1 then 
          response.write "<b>Igår</b><br>"
      else
          response.write "<b>" & d & "</b><br>"
      end if
      pd = d
  end if
%>
Övrig info:<%=Rs(0) & "<br>" %>
<%
  Rs.MoveNext
Loop
Rs.Close : Set Rs=nothing
```

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

## #9 — Bosse168, 2004-10-14T08:46Z

Med den koden blir det fortfarande likadant.

**2004-10-06 16:46:23**
Övrig info:68
**2004-09-29 13:59:59**
Övrig info:67
**2004-09-27 12:02:44**
Övrig info:66
**2004-09-27 11:45:45**
Övrig info:65
**2004-09-24 12:02:22**
Övrig info:64
**2004-09-16 09:53:50**
Övrig info:63
**2004-09-13 23:18:39**
Övrig info:62
**2004-08-28 21:26:50**
Övrig info:61
**2004-08-28 21:26:15**
Övrig info:60
**2004-08-27 09:31:04**
Övrig info:59
**2004-08-25 11:26:53**
Övrig info:58
**2004-08-24 12:39:20**
Övrig info:57

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

## #10 — Bosse168, 2004-10-14T12:49Z

Går det inte att få till loopen på det sättet som jag vill?

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

## #11 — LR^evil.sid, 2004-10-14T13:29Z

```
SQL = "SELECT * FROM Tabell ORDER BY datum DESC"

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Connect, 3,3

pd = #9999-12-24#
Do Until Rs.EOF
   d = cdate(rs("datum"))
   if  [b]Date(pd)[/b] <> [b]Date(d)[/b] then
       if [b]Date(d)[/b] = date() then
          response.write "<b>Idag</b><br>"
       elseif [b]Date(d)[/b] = date() - 1 then 
          response.write "<b>Igår</b><br>"
      else
          response.write "<b>" & d & "</b><br>"
      end if
      pd = d
  end if
%>
Övrig info:<%=Rs(0) & "<br>" %>
<%
  Rs.MoveNext
Loop
Rs.Close : Set Rs=nothing
```

Kanske, annars jämnför du ju tiden också

Sry @nders...

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

## #12 — @nders, 2004-10-14T13:34Z

eeek!

Aldrig, aldrig, aldrig använda strängfunktioner för att ta ut delar av datum. Då blir man ju beroende av formatet på datumet!

Använd de datumfunktioner som finns att tillgå istället.

Sid får bakläxa. =)

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

## #13 — Bosse168, 2004-10-14T14:04Z

Hur går man tillväga då @nders?

//red.
Löste det med DateDiff

```
check = DateDiff("d", Date, Rs("datum"))

       if check = 0 then
          response.write "<b>Idag</b>"
'osv
```

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

## #14 — LR^evil.sid, 2004-10-14T15:00Z

Kan du ju alltid testa med
[Year()](http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctyear.asp) [Month()](http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctmonth.asp) [Day()](http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctday.asp)

d = #2004-10-14 13:12:11#
nd = Year(d)&"-"&Month(d)&"-"&Day(d)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/113482-loopa-ut-idag-igår-11-okt-10-okt-osv