---
title: "åldrande problem :)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14150-åldrande-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cactuz"
published: "2002-02-02T16:48:00.000Z"
updated: "2002-02-02T16:58:00.000Z"
replies: 3
views: 175
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/14150-åldrande-problem"
---

# åldrande problem :)

## #1 — Cactuz, 2002-02-02T16:48Z

jo.. det är så här att jag har en loop... o i den loopen ska den räkna ut åldern med hjälp av några siffror... så här ser min kod ut

```
dag = rs("Alder_dag")
manad = rs("Alder_manad")
ar = rs("Alder_ar")

Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

END IF

%>

<%
Do Until rs.EOF
%>

<%
if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write " "
end if

%>

<%
rs.MoveNext
Loop
%>
```

nu är det jju så här att om det finns mer än 1 i listan så får jag ju inte fram någor eftersom den inte fattar vilken rs den ska ta :)

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

## #2 — LarsG, 2002-02-02T16:56Z

```
Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

END IF

%>

<%
Do Until rs.EOF
dag = rs("Alder_dag")
manad = rs("Alder_manad")
ar = rs("Alder_ar")

if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write " "
end if
rs.MoveNext
Loop
%>
```

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

## #3 — Erik Juhlin, 2002-02-02T16:57Z

```
Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

END IF

%>

<%
Do Until rs.EOF
%>

<%
dag = rs("Alder_dag")
manad = rs("Alder_manad")
ar = rs("Alder_ar")

if not isnull(ar) and not isnull(manad) and not isnull(dag) then
response.write DiffADate(DateSerial(ar,manad,dag))
else
response.write "&nbsp;"
end if

%>

<%
rs.MoveNext
Loop
%>
```

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

## #4 — Cactuz, 2002-02-02T16:58Z

hehe... jag har hjärnsläpp \*helg\*

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14150-åldrande-problem