11. september 2005 - 02:59
Der er
1 løsning
dato til år 2
Der var en her inde på eksperten der gav mig denne kode for meget længe siden, og jeg har også fået den til at fungere før, men nu kan jeg ikke hvad har jeg gjort galt:
<%
dato = bruger.Fields.Item("fosdag").Value
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 = " & alder & " år. " & Months(maaned)
Response.write(tekst)
%>
11. september 2005 - 03:06
#1
i må meget undskylde, men nu har jeg fundet ud af det, det er jeg godnok ked af at jeg skulle til at oprette et spørgsmål som ingen fik lov til at svare på udover mig selv sorry, koden skulle se sådan her ud:
<%
dato = bruger.Fields.Item("fosdag").Value
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 = " " & alder & " år "
Response.write(tekst)
%>
