Hejsan!
undrar om någon kan visa hur jag räknar ut antal år från typ 1988-08-08
skriver ut åååå-mm-dd så här:

<%= objRS("åååå") %>-<%= objRS("mm") %>-<%= objRS("dd") %>

då får jag ut 1988-08-08

men jag skulle vilja få det att funka att talet 16 visas istället för 1988-08-08, alltså 16 år
och att det nästa år efter den 08-08 fattar att det då skall vara 17 (år) osv. osv.
någon som förstår mina tankar?

/Tommy

Hej!
Varför ligger inte hela datumet i samma kolumn eller variabel?
Då är det bara att använda DateDiff("y", 1988-08-08, Date()). Om det inte funkar så ska nog start- och slutdatum byta plats. Har ingen server tillgänglig just nu så jag kan inte testa. Byt ut datumet mot din variabel eller variabler, om du vill ha kvar datumet i olika.

mvh Filip

okej!
om jag jag gör som du hur kommer det att se ut om jag skulle ändra från detta till så som du menar då?

<%= objRS("åååå") %>

/Tommy

Gör om data från recordset:et till ett datum, typ:
<code>
Dim datum
datum = cDate(objRS("åååå") & "-" & objRS("mm") & "-" & objRS("dd"))
</code>
Prova sen skriva ut
<code>
Response.Write(datediff("yyyy",datum,Date()))
</code>
Detta borde ge 16...
Det uppstår dock ett problem ifall datumet är 1988-12-10... då skriver den också ut 16 fastän det inte i skrivande stund är 16 år sen 1988-12-10...
Ifall du vill ha den att presentera korrekt antal hela år så måste du alltså jämföra månader och dagar med...

http://guffa.com.loopiadns.com/Programming_archive.asp?id=7

okej!
om jag använder denna kod (Function) hur gör jag då om jag vill få in min kod
<code><%= objRS("åååå") %>-<%= objRS("mm") %>-<%= objRS("dd") %> </code>
där det nu står 1970-11-09 ?

<code>
Function Age(datBorn)
Age = DateDiff("yyyy", datBorn, Date())
If (Month(Date()) < Month(datBorn)) or _
(Month(Date()) = Month(datBorn) and Day(Date()) < Day(datBorn)) Then Age = Age -1
End Function
</code>

<code><%=Age(#1970-11-09#)%></code>år.


/Tommy

Du kanske kan använda split så här?
t.ex 1980-09-09
skriver du så här för splitra dom
Bday = Split(request.form("Variabe"),"-",)
då blir det
Bday(0) = 1980
Bday(1) = Sept Men i tal 09 el. 9
Bday((2) = 9 Dagen den 9
och på så sätt kan du sen läsa ut det i if sats.

<b>okej! om jag använder denna kod (Function) hur gör jag då om jag vill få in min kod där det nu står 1970-11-09 ?</b>

Läs mitt inlägg ovan en gång till så kanske det klarnar... =)
(...speciellt där jag tilldelar variabeln datum ett värde...)

Släng sedan in denna variabel i Guffa's funktion.

Testa detta:

<%
Function getAge(dtDOB)
dim iAge, dtTmp
iAge = CInt(DateDiff("yyyy",CDate(dtDOB),Date()))
dtTmp = CDate(Year(Date) & "-" & Month(dtDOB) & "-" & Day(dtDOB))
if (dtTmp > Date) then iAge = iAge - 1
getAge = iAge
End Function

dim DOB
DOB = "1974-12-14"

Response.Write " 1. Födelsedatum är " & DOB
Response.Write " <BR>2. Ålder är " & getAge(DOB)
%>

Svenne