Access Dato og klokkeslæt: Fra ASP til Access

Det kunne lyde som om din server ikke køre DK dato format. Prøv at tilføje denne linje i toppen af din kode:

<% Session.LCID = 1030 %>

<% Session.LCID = 1030 %>

<html>

<head>
<title></title>
</head>

<body>

<%
Dim Dato
Dato = Day(Date) & "/" & Month(Date) & "/" & Year(Date) & " " & Time

Conn.Execute("INSERT INTO MinTabel (alle, dine, variabler) VALUES (" & _
"'" & Dato & "', "
osv.
%>

</body>

</html>

Kan det bruges?

Noget kode, som jeg selv bruger:

            Conn.Execute("INSERT INTO profiles (username, pass, email, homepage, description, created, lastIP) VALUES (" & _
                "'" & LTrim(RTrim(SQLEncode(Request.Form("username")))) & "', " & _
                "'" & SQLEncode(vPassword) & "', " & _
                "'" & Trim(SQLEncode(Request.Form("email"))) & "', " & _
                "'" & Trim(SQLEncode(Request.Form("homepage"))) & "', " & _
                "'" & Trim(SQLEncode(Request.Form("description"))) & "', " & _
                "'" & Dato & "', " & _
                "'" & SQLEncode(Request.ServerVariables("REMOTE_ADDR")) & "')")

            Conn.Close

Og når du skal trække dato/tidspunkt ud (fra en anden sammenhæng, men princippet er det samme):

<%
Function AddZ(ByVal vNumber)

    AddZ = CStr(vNumber)

    If len(AddZ) < 2 Then _
        AddZ = "0" & AddZ

End Function
%>

<%
Dim vCreated
vCreated = RS("created")
vCreated = addZ(day(vCreated)) & "-" & addZ(month(vCreated)) & "-" & year(vCreated) & " " & addZ(hour(vCreated)) & ":" & addZ(minute(vCreated)) & ":" & AddZ(Second(vCreated))
%>

<%=Server.HTMLEncode(vCreated)%>

Jeg fik store problemer, da min host ind imellem skiftede fra engelsk til dansk datoformat og omvendt. Det klarer det ovenstående fint.

...  skiftede fra engelsk til dansk datoformat og omvendt - på serveren.

Det ser ud til at virke fint med <% Session.LCID = 1030 %>..
Hvad gør den egentligt..
Der er bare et problem.. Når jeg skriver 10.10.10 så laver den det om til 10:10:10, nogen som ved om der er en næm måde at ændre det på..? Eller kan jeg jo bare splitte den op og skifte : ud med .

Session.LCID = 1030 sættter den til DK dato format.

Du kan bare replace : med .

tid = "10:10:10"
tid = Replace(tid, ":", ".")

Med Session.LCID = 1030 angives der, at det er det danske datoformat, der skal anvendes.

Mht. : og . - så kan du anvende dette:

<%
Function AddZ(ByVal vNumber)

    AddZ = CStr(vNumber)

    If len(AddZ) < 2 Then _
        AddZ = "0" & AddZ

End Function
%>

<%
Dim vCreated
vCreated = RS("created")
vCreated = addZ(day(vCreated)) & "." & addZ(month(vCreated)) & "." & year(vCreated) & " " & addZ(hour(vCreated)) & "." & addZ(minute(vCreated)) & "." & AddZ(Second(vCreated))
%>

AddZ sætter bare et 0 (nul) foran, hvis tidspunktet, der angives, er mindre end 10. Det ser mere ordentligt ud, men det kan du bare udelade.

Undskyld eagle, jeg konflikter vist med dig i dag :o)

Det går nok. Det jo altid godt der nogle som hjælper og vi siger det samme :)
Må men jeg må smutte for i aften.

Tak for hjælpen begge 2.. Har delt point 50/50..

Ups, takker mange gange for point, men du har da vist lagt en hel del oven i?