dato format

Brug nedenstående og ret linien med

        FormatMediumDate = strMM & "/" & strDD & "/" & strYYYY

så det passer til det du ønsker-.


Function FormatMediumDate(DateValue)
    Dim strYYYY
    Dim strMM
    Dim strDD

        strYYYY = CStr(DatePart("yyyy", DateValue))

        strMM = CStr(DatePart("m", DateValue))
        If Len(strMM) = 1 Then strMM = "0" & strMM

        strDD = CStr(DatePart("d", DateValue))
        If Len(strDD) = 1 Then strDD = "0" & strDD

        FormatMediumDate = strMM & "/" & strDD & "/" & strYYYY

End Function

eller

<% dtmCurDate = date() %>

kryptos:> er det sådan?

response.Write FormatMediumDate(dtmCurDate)

Function FormatMediumDate(dtmCurDate)
    Dim strYYYY
    Dim strMM
    Dim strDD

        strYYYY = CStr(DatePart("yyyy", dtmCurDate))

        strMM = CStr(DatePart("m", dtmCurDate))
        If Len(strMM) = 1 Then strMM = "0" & strMM

        strDD = CStr(DatePart("d", dtmCurDate))
        If Len(strDD) = 1 Then strDD = "0" & strDD

        FormatMediumDate = strMM & "-" & strDD & "-" & strYYYY

End Function

kryptos:> det virker flot!
cpufan:> jeg løber en måned igennem i en løkke og så går det vist ikke med dit forslag, men ellers tak for hjælpen.