<%
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)

'Amrekansk tid
'text = dateAdd("h",6 ,datumet)
'text = replace(text," ","|")
'text = replace(text,"/","|")
'text = replace(text,":","|")
'datum = split(text,"|")

'if datum(6) = "PM" Then
' datum(3) = datum(3) + 12
'end if

'dag = datum(1)
'Manad = datum(0)
'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
%>


<% =snyggtdatum(now) %>