Regne alder ud.

DateDiff("yyyy", Dato1, Dato2)

Virker da fint!

//>Rune

at regne selve alderen ud er ikke nemt... du vil få problemer med skudår etc...

jeg sidder ikke selv inde med koden til det, men kan huske andre diskutioner hvor det har givet store problemer

Du kan gøre sådan her:

  Function AgeDate(dtmDate)
      dtmDay = Left(dtmDate, 2)
    dtmMonth = Mid(dtmDate, 3, 2)
    dtmYear = Right(dtmDate, 4)
   
    dtmDate = dtmDay & "-" & dtmMonth & "-" & dtmYear
    AgeDate = DateDiff("YYYY", DateAdd("YYYY", 1, dtmDate), Date())
  End Function

dtmDate = "14-09-85"
Msgbox(AgeDate(dtmDate))

//>Rune

Medions >>>

Nej... det er så det det ikke gør... for mig hvertfald...

Har du prøvet den funktion jeg gav dig?

//>Rune

hov... nu afviste den dit andet svar... uden jeg nåede at kigge på det... fordi du havde submitet det lige inden mig...

kigger lige på det..

Hvis du vil ha' differencen mellem de 2 datoer så kan du også gøre sådanher:

  Function AgeDate(dtmDate1, dtmDate2)
    dtmDay1 = Left(dtmDate1, 2)
    dtmMonth1 = Mid(dtmDate1, 3, 2)
    dtmYear1 = Right(dtmDate1, 4)
   
    dtmDate1 = dtmDay & "-" & dtmMonth & "-" & dtmYear

    dtmDay2 = Left(dtmDate2, 2)
    dtmMonth2 = Mid(dtmDate2, 3, 2)
    dtmYear2 = Right(dtmDate2, 4)
   
    dtmDate2 = dtmDay & "-" & dtmMonth & "-" & dtmYear

    AgeDate = DateDiff("YYYY", DateAdd("YYYY", 1, dtmDate1), DateAdd("YYYY", 1, dtmDate2)
  End Function

dtmDate1 = "14-09-85"
dtmDate2 = "14-09-80"
Msgbox(AgeDate(dtmDate1, dtmDate2))

//>Rune

Den kommer konstant med at "typerne passer ikke sammen"

sådan her.


  maaned = Month( rs("fødslesdatoKolonne") )
  dag = Day(rs("fødslesdatoKolonne"))
  alder = Year(date)-Year(rs("fødslesdatoKolonne"))
  if Month(Date)<maaned OR (Month(Date)=maaned AND Day(date)<dag) then
    alder=alder-1
  end if

Lidt pænere skrevet sådan her:


fddato = rs("fødslesdatoKolonne")
maaned = Month(fddato)
dag = Day(fddato)
alder = Year(date)-Year(fddato)
if Month(Date)<maaned OR (Month(Date)=maaned AND Day(date)<dag) then
  alder=alder-1
end if
Response.write alder

Ahh min fejl!

  Function AgeDate(dtmDate)
      dtmDate = Replace(dtmDate, "-", "")
      dtmDay = Left(dtmDate, 2)
    dtmMonth = Mid(dtmDate, 3, 2)
    dtmYear = Right(dtmDate, 4)
   
    dtmDate = dtmDay & "-" & dtmMonth & "-" & dtmYear
    AgeDate = DateDiff("YYYY", DateAdd("YYYY", 1, dtmDate), Date())
  End Function

dtmDate = "14-09-85"
Msgbox(AgeDate(dtmDate))

Sådan

//>Rune

Hmmm... tror jeg er ved at blive doven...
Havde selv en lidt som EagleEyes (med Datediff for alder dog...)

Men jeg mente ikke det kunne passe man skulle skrive så meget for så lidt...
;o/

Er det første tegn på dovenskab ???

LOL ja det er det ;)

Da dateDiff giver hele år imellem to datoer og ikke "alderen" skal man tjekke om personen har haft fødselsdag og så trække 1 fra hvis ikke.


men du kan skrive det sådan her:


fddato = rs("fødslesdatoKolonne")
alder = Year(date)-Year(fddato)
if Month(Date)<Month(fddato) OR (Month(Date)=Month(fddato) AND Day(date)<Day(fddato)) then
  alder=alder-1
end if
Response.write alder

Andre god ider til udregning kan ses her:
http://www.eksperten.dk/spm/378519

eagleeye >>>

Nej... det ved jeg godt...
Men der kunne nu godt have været en Funktion til at få antal hele år mellem 2 datoer... det ville jo så kunne bruges til føsdag...