Ændre datoformat?

Jeg vil godt kunne lave en funktion der kunne konvertere det, men om der er en standardfunktion i ASP der kan, det ved jeg ikke..

Prøv dette:

------- kode -------
<%
' Sætter tidsformat til dansk
Session.LCID = 1030
Response.Write(FormatDateTime(strDate,1))
%>

Hov, hvor selvfølgelig er

strDate = "16-05-2007"

Jeg er ret sikker på at der ikke findes en standardfunktion, men man har vel lov at blive overrasket :-)

Jeg tror det her er hvad du søger:
strDate = 16-05-2007
maan = split(",januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,december",",")

dato =  "& day(strDate)&". "& maan(month(strDate))&" "& year(strDate)&"

response.write dato

Hva hullen! Det er da lige netop det du har fundet frem der, Søren Lyn :)

Når jeg sætter denne kode ind i mit script: <%
' Sætter tidsformat til dansk
Session.LCID = 1030
Response.Write(FormatDateTime(strDate,1))
%>
Skriver mit script 30. december 1899. Det skulle gerne skrive fx dato, måned, år istedet for fx 16-05-2007

<%
' Sætter tidsformat til dansk
Session.LCID = 1030
Response.Write(FormatDateTime(strDate,1))
%>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("users.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From blog ORDER BY dato DESC"
Set rs = Conn.Execute(strSQL)

' Skriv personens data
Response.Write "<b>Dagbøger -" & rs("name")& " </b>" & rs("dato")& "<br>"
Response.Write "" & rs("comments")& "<p>"
Conn.Close
Set Conn = Nothing
%>

Jeg fandt et eks her inde som jeg brugte og nu virker det.
Det færdige resultat er:
<%
'***********************************
DIM maned, ugedag

Function DatoVis(dato)
    maned = Array(,"januar", "februar", "marts", "april", "maj", "juni", "juli", "august","september", "oktober", "november", "december")
    ugedag = Array(,"Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "L&oslash;rdag", "S&oslash;ndag")
    DatoVis = ugedag(Weekday(dato,2)) &"&nbsp;d.&nbsp;"& Day(dato)&".&nbsp;"& maned(month(dato)) &"&nbsp;"& Year(dato)
End Function
'***********************************
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("users.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From blog ORDER BY dato DESC"
Set rs = Conn.Execute(strSQL)

' Skriv personens data
Response.Write datovis(rs("dato"))
Response.Write "<br><b>Dagbøger -" & rs("name")& " </b><br>"
Response.Write "" & rs("comments")& "<p>"
Conn.Close
Set Conn = Nothing
%>

Du mangler jo at angive strDate, som han også påpeger:


------- kode -------
<%
' Sætter tidsformat til dansk
Session.LCID = 1030
strDate = "16-05-2007"
Response.Write(FormatDateTime(strDate,1))
%>

Hvar var der galt med min kode? Den er da meget kortere?

jeg kunne ikke få det til, at virke... scriptet skrev 30. december 1899

Selvom du udfyldte strDate?

Det har han bestemt glemt, for puttet du en tom værdi ind i FormatDateTime ender den nemlig op med 30. dec....

Så jo, Sørens kode virker. Og hvis du ikke kunne bruge hans, kunne du vel ha brugt min ;-)

Men nå, Søren ska ha points :) - og så tror jeg jeg vil i seng ;-)

Det var en gammel en :)

Lukketid?

?