Patric Johansson Postad 16 oktober, 2002 Share Postad 16 oktober, 2002 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” Länk till kommentar Dela på andra webbplatser More sharing options...
Don Tomas Postad 16 oktober, 2002 Share Postad 16 oktober, 2002 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 Länk till kommentar Dela på andra webbplatser More sharing options...
Patric Johansson Postad 16 oktober, 2002 Trådskapare Share Postad 16 oktober, 2002 Det får du gärna göra! Tackar för svaret. Länk till kommentar Dela på andra webbplatser More sharing options...
Patric Johansson Postad 16 oktober, 2002 Trådskapare Share Postad 16 oktober, 2002 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] Länk till kommentar Dela på andra webbplatser More sharing options...
Don Tomas Postad 16 oktober, 2002 Share Postad 16 oktober, 2002 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 Länk till kommentar Dela på andra webbplatser More sharing options...
m a r c u s Postad 17 oktober, 2002 Share Postad 17 oktober, 2002 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") ) Länk till kommentar Dela på andra webbplatser More sharing options...
Rekommendera Poster
Arkiverat
Det här ämnet är nu arkiverat och är stängt för ytterligare svar.