<%
Function SnyggtDatum(datumet)

'Svensk Tid
text = datumet
text = replace(text," ","|")
text = replace(text,"-","|")
text = replace(text,":","|")
datum = split(text,"|")

dag = datum(2)
Manad = datum(1)
Minut = datum(4)
Timme = datum(3)

dag = replace(dag, "0", "")

if dateDiff("d", datumet, now) = 0 Then
Dagen = "Idag"
snyggtDatum = ""& Dagen &" "& Timme &":"& minut &""
elseif dateDiff("d", datumet, now) = 1 Then
Dagen = "Igår"
snyggtDatum = ""& Dagen &" "& Timme &":"& minut &""
else
if Dag < 3 Then
bojning = ":a"
else
bojning = ":e"
end if

if manad = 1 then
manad = "Jan"
elseif manad = 2 then
manad = "Feb"
elseif manad = 3 then
manad = "Mars"
elseif manad = 4 then
manad = "Apr"
elseif manad = 5 then
manad = "Maj"
elseif manad = 6 then
manad = "Juni"
elseif manad = 7 then
manad = "Juli"
elseif manad = 8 then
manad = "Aug"
elseif manad = 9 then
manad = "Sept"
elseif manad = 10 then
manad = "Okt"
elseif manad = 11 then
manad = "Nov"
elseif manad = 12 then
manad = "Dec"
end if

snyggtDatum = ""& Dag &""& bojning &" "& manad &" "& Timme &":"& minut &""
end if
End Function
%>