Dato format

Du laver en convert funktion :o)

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    if ConstDateFormat = 1 then
        ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear
    elseif ConstDateFormat = 2 then
        ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
    else
        ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
    end if
End Function

Der var lidt for meget i...

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
End Function

Den før har indbygget funktionalitet til at skifte mellem Access og MS-SQL formatet.

<%
Function convertDate(dato)
    convertDate = Year(dato)
    If Len(Month(dato)) = 1 Then
      convertDate = convertDate & "0"
    End If
    convertDate = convertDate & Month(dato)
    If Len(Day(dato)) = 1 Then
      convertDate = convertDate & "0"
    End If
    convertDate = convertDate & Day(dato)
End Function

Response.Write "25-06-2005 = " & convertDate("25-06-2005") & "<br>"
Response.Write "01-06-2005 = " & convertDate("01-06-2005") & "<br>"
Response.Write "12-11-2005 = " & convertDate("25-06-2005") & "<br>"
Response.Write date & " = " & convertDate(date) & "<br>"
%>

arg :) lidt for sent.