Format af dato og tid

Noget du kan bruge her?: http://www.w3schools.com/vbscript/func_formatdatetime.asp

<%
' henter datoen fra din database...
myTime = rs("Dato")

'... og formaterer den
Response.Write FormatDateTime(myTime,1) & " - " & FormatDateTime(myTime, 3)
%>

mon ikke at det skulle være, FormatDateTime(myTime, 4), dvs 4 i stedet for 3, da vi i Danmark ikke bruger AM/PM..?

Se http://www.w3schools.com/vbscript/func_formatdatetime.asp

hmm jeg har kigget lidt på det, men får ikke det ønsket resultat:
Dette er mit output:
Wednesday, May 13, 2004 - 12:00
men jeg ønsker:
13 Maj, 2004 - 12.00.12

Hos mig outputter den altså:
13. marts 2004 - 12:00:12

Du siger du ønsker at den outputter Maj, det er lidt svært når din dato i long format er i marts :)

Prøv at indsætte følgende aller øverst i din asp fil for at sætte landekoden til dansk:
<%
Session.LCID = 1030
%>

Plejer at bruge denne:

Function DKDato(nDato, nFormat)
    If isDate(nDato) = False Then
        DKDato = nDato
        Exit Function
    End If
    Dim arrMinth
    Dim arrDays
    arrMonth = "januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,december"
    arrMonth = Split(arrMonth,",")
    datDay = PutZero(Day(nDato))
    datMonth = PutZero(Month(nDato))
    datYear = Year(nDato)
    datHour = PutZero(Hour(nDato))
    datMin = PutZero(Minute(nDato))
    datSec = PutZero(Second(nDato))
    Select Case nFormat
    Case "#db"
        DKDato = datMonth&"/"&datDay&"/"&datYear&" "&datHour&":"&datMin&":"&datSec
    Case "#dbout"
        DKDato = datDay&"-"&datMonth&"-"&datYear
    Case "#1"
        DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)
    Case "#2"
        DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&" "&datHour&":"&datMin
    Case "#3"
        DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&" "&datHour&":"&datMin&":"&datSec
    Case "#4"
        DKDato = datDay&"-"&datMonth&"-"&datYear
    Case "#5"
        DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin
    Case "#6"
        DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin&":"&datSec
    Case "#7"
        DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear
    Case "#8"
        DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl. "&datHour&":"&datMin
    Case "#9"
        DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl. "&datHour&":"&datMin&":"&datSec
    Case "#10"
        DKDato = Day(nDato)&". "&arrMonth(datMonth-1)&" "&datYear&" "&datHour&":"&datMin
    Case "#11"
        DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin
    Case "#12"
        DKDato = datDay&"-"&datMonth&"-"&datYear
    Case "#13"
        DKDato = datHour&":"&datMin
    Case "#14"
        DKDato = datDay&"/"&datMonth
    Case "#15"
        DKDato = datDay&"."&datMonth&" "&datHour&":"&datMin
    Case Else
        DKDato = nDato
    End Select
End Function

Function PutZero(value)
    If Len(value) = 1 Then value="0"&value
    PutZero = value
End Function

Tusind tak, det virkede præcis som det skulle :)