Räkna ut ålder i år, månad, veckor och dagar.

[sMe]

Jag har ett problem.

Jag håller på med en hemsida och ska skriva in hur gammal personen som har sidan är i år, månader, veckor och dagar.

 

Med hjälp av DateDiff kan ja få reda på hur många år, månader, veckor ELLER dagar.

 

Jag vill dock ha det som tex: "20 år, 4 månader, 1 vecka och 5 dagar".

 

Tror jag har förklarat enkelt nu =)

 

Nån som har nåt råd?

 

[-Patrik Johansson-]

Det finns en lite bökig algoritm för detta men man kan ju lika gärna använda DateDiff.

Räkna ut åldern i år.

Räkna sedan ut antal månader sedan förra födelsedagsdatumet.

Räkna sedan ut antal veckor som har gått sedan den första i denna måndad. Räkna sedan ut hur många dagar det var från förra söndagen dvs söndagen i veckan innan.

Klart!

 

Kanske inte så bra förklarat men någon annan kanske har en bättre lösning.

 

/Neox -(Patrik J)

"Gravitation can not be held responsible for people falling in love"

- citat av Albert Einstein

 

[sMe]

Så kan man göra men har du något förlag på koden till det?

 

jag testade med att räkna ut månaderna och sedan köra DateAdd så många månader och samma på veckor.

Problemet då blev att när det var 0 veckor så fungerade det. Blir det 1 vecka så blir det dock 8 dagar oxå. I vissa fall blev det till och med -1 dag. Hehe. Den vill inte som jag vill =)

 

Det här är det jag testade:

'*********************************************

born = #2002-11-17#

Smonths = DateDiff("M",born,now())

newDay = DateAdd("M",Smonths,born)

 

Sweeks = DateDiff("WW",newDay,now())

newDay = DateAdd("WW",Sweeks,newDay)

 

Sdays = DateDiff("D",newDay,now())

 

Response.Write Smonths & " månader, " & Sweeks & " veckor, " & Sdays & " dagar."

'*********************************************

 

Den funkar som sagt i vissa fall. Men ändrar man born till tex: 2002-11-07 så flippar det ut.

 

[inlägget ändrat 2003-03-20 09:26:28 av sMe]

[inlägget ändrat 2003-03-20 09:30:23 av sMe]