Svenskt datumformat från sträng
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
Svara
Sv: Svenskt datumformat från sträng
Du borde ju kunna ändra LCID för session enna och efter anropet. Du borde då kunn använda CDate() funktionen.
En början:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | Function ToDate(Value)Dim Values Values = Split(Value, " ", 4, vbBinaryCompare) ToDate = DateSerial(Values(2), MonthFromName(Values(0)), Values(1))End FunctionFunction 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 |
Tiden är kvar.
Svara
Sv: Svenskt datumformat från sträng
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.
Svara
Sv:Svenskt datumformat från sträng
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
Svara