Lav datoformat om til år

Kender ikke asp, men bare brug sub string, og nogle arrays, som indeholder månederne!
Hvis du skal beregne alder, så skal du nok have gang i noget unixtimestamp! - leg med det!

okay men det hjælper mig jo ikke... må desværrer afvise svaret... men tak fordi at de prøvede...

aar = String.subString(dato,-2,2)
maaned = String.subString(dato,2,2)
dag = String.subString(dato,0,2)
alder = Year(now()) - aar
if (Month(now()) > maaned) or (Month(now()) = maaned and Day(now()) > dag)
alder = alder + 1
endif
Dim Months(12)
Months(1) = "Januar"
Months(2) = "Februar"
Months(3) = "Marts"
Months(4) = "April"
Months(5) = "Maj"
Months(6) = "Juni"
Months(7) = "Juli"
Months(8) = "August"
Months(9) = "September"
Months(10) = "Oktober"
Months(11) = "November"
Months(12) = "December"

tekst = "Han er " & alder & " år, og har fødselsdag den " & dag & ". " & Months(maaned)

Response.write(tekst)

:)

Hva så der... Jeg fandt ud af at mit eksempel var noget møg. Det virker slet ikke. Men nu er det lykkedes mig at lave en version, der virker perfekt :)

<%

dato = "200286"

aar = CInt("19" & Right(dato,2))
maaned = CInt(Mid(dato,3,2))
dag = CInt(Left(dato,2))
alder = Year(now()) - aar
if (Month(now()) > maaned) or (Month(now()) = maaned and Day(now()) > dag) then
alder = alder + 1
end if
Dim Months(12)
Months(1) = "Januar"
Months(2) = "Februar"
Months(3) = "Marts"
Months(4) = "April"
Months(5) = "Maj"
Months(6) = "Juni"
Months(7) = "Juli"
Months(8) = "August"
Months(9) = "September"
Months(10) = "Oktober"
Months(11) = "November"
Months(12) = "December"

tekst = "Han er " & alder & " år, og har fødselsdag den " & dag & ". " & Months(maaned)

Response.write(tekst)


%>

Der var lige en fejl mere... NU er den der :)

<%

dato = "200286"

aar = CInt("19" & Right(dato,2))
maaned = CInt(Mid(dato,3,2))
dag = CInt(Left(dato,2))
alder = Year(now()) - aar
if (Month(now()) < maaned) or (Month(now()) = maaned and Day(now()) < dag) then
alder = alder - 1
end if
Dim Months(12)
Months(1) = "Januar"
Months(2) = "Februar"
Months(3) = "Marts"
Months(4) = "April"
Months(5) = "Maj"
Months(6) = "Juni"
Months(7) = "Juli"
Months(8) = "August"
Months(9) = "September"
Months(10) = "Oktober"
Months(11) = "November"
Months(12) = "December"

tekst = "Han er " & alder & " år, og har fødselsdag den " & dag & ". " & Months(maaned)

Response.write(tekst)


%>