Jag kände att jag vill bidra med någonting till wF men problemet var att jag var för lat att göra någonting rejält.
Därför kommer den nu, en simpel funktion, tog 2 minuter att göra men den fyller i alla fall sin funktion. ;)
Enjoy!
(Hackning och utmobbning relaterat till scriptet sker i denna tråden, tack! :h )
<%
Function DateAndTime(datum)
Dim Dagen, Manaden, Aret, ReManaden
Dagen = Right(datum, 2)
Manaden = Mid(datum, 6, 2)
Select Case Manaden
Case 1 : ReManaden="januari"
Case 2 : ReManaden="februari"
Case 3 : ReManaden="mars"
Case 4 : ReManaden="april"
Case 5 : ReManaden="maj"
Case 6 : ReManaden="juni"
Case 7 : ReManaden="juli"
Case 8 : ReManaden="augusti"
Case 9 : ReManaden="september"
Case 10 : ReManaden="oktober"
Case 11 : ReManaden="november"
Case 12 : ReManaden="december"
End Select
Aret = Left(datum, 4)
DateAndTime = Dagen & " " & ReManaden & " år " & Aret
End Function
Response.Write DateAndTime("2002-10-28")
%>
Alla sätt är bättre än sättet som används i trexters script, faktiskt. Man ska aldrig använda strängfunktioner för att ta fram delar av ett datum, det finns bra funktioner för sånt i VBScript. Använd alltid datumfunktioner för att hantera datum. Ok? :)
Känns som att nivån i här i script forumet sänkts.
Som om alla, som vet hur man skriver en if sats och tror att de kommit på nåt nytt, tar o postar sina "kanontips" här.
