Frågan#1
Jag har lagt in ett datum i Access-databasen (now) och vill få datumet i formatet
Söndagen 16. Juni kl. 22:49
???
Datum + tid...
4 svar · 268 visningar · startad av pirajan
<%Response.write UCase(Left(WeekDayName(WeekDay(Date)), 1)) & Right(WeekDayName(WeekDay(Date)), Len(WeekDayName(WeekDay(date))) -1)&"en " & FormatDateTime(now,1)&" Kl. "& left(time(),5)%>
Skall man hålla på att frisera koden och lägga in "kl." osv så tror jag att det är svårt att lägga in den som den är, då är det bättre att lägga in den på vanligt sätt, alltså hela datumet inkl. tid och sen när du plockar ut det så gör du något liknande som jag gjort här ovan. (Byt ut "date" mot ditt recset istället.)
MVH Jesper
eller med reg.exp:
<%
Function Free(f2)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
f2 = Server.HTMLEncode(f2)
objRegExp.Pattern = date()
f2 = objRegExp.Replace(f2,"Idag")
objRegExp.Pattern = date()-1
f2 = objRegExp.Replace(f2,"Igår")
for i = 1 to 12
objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)"
f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i, true)) & " $1")
next
objRegExp.Pattern = "(..:..)(:..)"
f2 = objRegExp.Replace(f2,"<font class=""time""><i>kl:$1</i></font>")
free = f2
End Function
%>
vad ska bytas ut da?