Just nu i M3-nätverket
Jump to content

Ålder


Patric Johansson

Recommended Posts

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”
Link to comment
Share on other sites

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

 

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

 

 

Link to comment
Share on other sites

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") )

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...