Ålder

[Patric Johansson]

Jag håller på med en medlemssida där folk bl.a. kan fylla i när dom föddes.

Jag sparar årtal, månad och dag som siffror i varsin tabellrad i en databas, hur kan jag använda detta för att räkna ut hur gammal den personen är ju idag, i år dvs.?

 

/ProTeuS

Resistance is futile. You will be assimilated.

- citat från ”Star Trek - First Contact”

[Don Tomas]

Snott från nätet.

 

function getAge(dtDOB)
dim iAge, dtTmp, dtToday
dtToday = Date()
iAge = CInt(DateDiff("yyyy",FormatDateTime(dtDOB,1),Date()))
dtTmp = CDate((Day(dtDOB) & "/" & Month(dtDOB) & "/" & Year(Date
())))
if (dtTmp > Date) then iAge = iAge - 1
getAge = iAge
end function

dim DOB
DOB = "15/01/1974"

Response.Write " 1. DoB is " & DOB
Response.Write " <BR>2. Age is " & getAge(DOB)

Jag kan fila till och översätta och förklara lite senare, men detta kan ju ge en hint...

 

/TN

 

 

[Patric Johansson]

Det får du gärna göra! Tackar för svaret.

 

[Patric Johansson]

Fick inte din stulna kod att funka, men jag lyckades fixa en egen iaf tack vare den jag fick av dig.

Egentligen borde jag klarat av det på en gång.

Men ibland står det bara still.

Dim dbDate, sDate
dbDate = rstemp("Fodelsedatum_Manad") & "-" & rstemp("Fodelsedatum_Dag")
sDate = Month(Date()) & "-" & Day(Date())

If dbDate > sDate Then
Response.Write Year(Date()) - rstemp("Fodelsedatum_Ar") - 1
ElseIf dbDate =< sDate Then
Response.Write Year(Date()) - rstemp("Fodelsedatum_Ar")
End If

 

[inlägget ändrat 2002-10-16 16:25:02 av ProTeuS]

[Don Tomas]

Fick inte din stulna kod att funka,

Nej, den fungerar visst inte, men om du byter

FormatDateTime(dtDOB,1)

mot

FormatDateTime(dtDOB)

eller

FormatDateTime(dtDOB,VBShortDate)

så fungerar det.

 

/TN

 

 

[m a r c u s]

Lättast blir det väl om du lagrar datumet som just ett datum i databasen.

 

Då behövs ju bara:

DateDiff( "yyyy", oRs("dob"), Date )

 

Att typkonvertera går också med:

CDate( oRs("y") & "-" & oRs("m") & "-" & oRs("d") )