3 svar · 299 visningar · startad av calson
Enlight mig skall detta funka.
dtmDatum som är taget ifrån en databas är av formatet DateTime(0000-00-00 00:00:00)
Om jag gör en post med dagens datum så används ändå den fetstilta koden nedan.. Alltså tror skriptet att postens datum inte är dagens av någon outgrublig anledning.
If FormatDateTime(dtmDatum,2) = Date Then
dtmDatum = "Idag "&FormatDateTime(dtmDatum,4)
ElseIf FormatDateTime(dtmDatum,2) = Date - 1 Then
dtmDatum = "Igår "&FormatDateTime(dtmDatum,4)
Else
[B] dtmDatum=(Weekdayname(Weekday(dtmDatum)) &"en "&FormatDateTime(dtmDatum,1) &" " &FormatDateTime(dtmDatum,4))[/b]
End If
Tack på förhand
Denna kod fungerar för mig du får göra om den så den passar dig:
Dim check
check = DateDiff("d", Date, Rs("datum"))
if check = 0 then
response.write "<font color='#FF0000'>Idag</font> klockan "& FormatDateTime(Rs("datum"), 4) &""
elseif check = -1 then
response.write "Igår klockan "& FormatDateTime(Rs("datum"), 4) &""
Else
Response.Write FormatDateTime(Rs("datum"), 2) &" ["& FormatDateTime(Rs("datum"), 4) &"]"
End If
Tack efter lite modefiering fungerar det prima
Mange takk
inga problem kul att kunna ge tillbaka av all den kunskap som man fått här. :)