datumformat

hur fixar jag så att now() blir så här istället
Måndag 28:e oktober 2002, kl 21:49

I VBScriptmanualen kan man ganska lätt hitta funktionen FormatDateTime.

FormatDateTime(Date, vbLongDate)

I kombination med lite stränghantering, har du det du vill ha.

det blir ju såhär
den 5 november 2002

nu använder jag

postDate = cdate(recset("start"))
days = datediff("d",postDate,now())
if days = 0 then
response.write "idag, kl " & FormatDateTime(postDate,4)
elseif days = 1 then
response.write "igår, kl " & FormatDateTime(postDate,4) 
else
datum = Split(" ",recset("start")) 

Response.Write FormatDateTime(Date, vbLongDate)&", kl "& FormatDateTime(postDate,4)
end if

I kombination med lite stränghantering, har du det du vill ha.

hur fixar jag det där med : e och :a

<%
datum = Now()
manad = MonthName(Month(datum))
dagnamn = WeekDayName(WeekDay(datum,1)) & "en"
dag = Day(datum)
IF Right(dag,1) = "1" Or Right(dag,1) = "2" then
dag2 = ":a"
ELSE
dag2 = ":e"
END IF
ar = Year(datum)
datum = dagnamn & " den " & dag & dag2 & " " & manad & " " & ar
Response.Write datum
%>