Hämtar ut en sträng från ett databas fält (varchar) som ser ut så här
May 30 2007 9:27AM

Hur omvandlar jag det till svenskt datumformat

Jag vill sen kunna behandla tiden med DatDiff för att
fastställa om ett simuleringsprogram har uppdaterats
inom en viss tid

Du borde ju kunna ändra LCID för session enna och efter anropet. Du borde då kunn använda CDate() funktionen.

En början:

Function ToDate(Value)
Dim Values
    Values = Split(Value, " ", 4, vbBinaryCompare)
    ToDate = DateSerial(Values(2), MonthFromName(Values(0)), Values(1))
End Function

Function MonthFromName(Value)
    Select Case LCase(Value)
    Case "jan", "january"
        MonthFromName = 1
    Case "feb", "february"
        MonthFromName = 2
    Case "mar", "march"
        MonthFromName = 3
    Case "apr", "april"
        MonthFromName = 4
    Case "may"
        MonthFromName = 5
    Case "jun", "june"
        MonthFromName = 6
    Case "jul", "july"
        MonthFromName = 7
    Case "aug", "august"
        MonthFromName = 8
    Case "sep", "september"
        MonthFromName = 9
    Case "oct", "october"
        MonthFromName = 10
    Case "nov", "november"
        MonthFromName = 11
    Case "dec", "december"
        MonthFromName = 12
    End Select
    
End Function

Varför krångla till det Andreas?

<b>Hur omvandlar jag det till svenskt datumformat</b>
<code>
<%

Dim lcid,myDate
' spara tillfälligt undan aktuellt LCID
lcid = Session.LCID

myDate = cDate("May 30 2007 9:27AM")
Session.LCID = 1053
Response.Write(myDate)

' Ställ tillbaka LCID
Session.LCID = lcid
%>
</code>

Men... eftersom det redan är ett korrekt datumformat (dock engelskt) borde det gå att köra DateDiff på det direkt utan att göra om det... konvertera det bara till ett datum först.

Det blev en ändring i selectsatsen som löste det

Select Convert(datetime,Varde) as Varde From Systemparametrar osv

Då fick jag ut svenskt datumformat


Tack för hjälpen

Thommy