Lav datoen om til idag, igår osv..

så skal du lave noget med at du henter datoen idag (har ikke prøvet det, men ideen er der:)
Noget med:
Dato = Date()
If DatoIndlæg + 1 = DATE() Then
Response.Write "idag"
eller noget i den stil...

Jeg har prøvet at lave denne function til det:


function lavDato(datoTid)
  datoDB = FormatDateTime(datoTid,2)
  if CStr(datoDB) = Cstr(Date) then
    str = "kl. " & FormatDateTime(datoTid,4)
  elseif CStr(datoDB) = CStr(DateAdd("d", -1, Date)) then
    str = "Igår kl. " & FormatDateTime(datoTid,4)
  else
    str = FormatDateTime(datoTid,0) & " " & FormatDateTime(datoTid,4)
  end if
  lavDato = str
end function
%>



Og så koden som udskriver det:

strSQL = "SELECT dato FROM tabel"
set rs = Conn.Execute(strSQL)

do while not rs.EOF
  Response.Write lavDato(rs("dato"))
  Response.Write "<br>"
  rs.MoveNext
loop

functionen skal nød være sådan her for dne ikke udskrier tiden to gange hvis det ikke er idag eller igår...:

function lavDato(datoTid)
  datoDB = FormatDateTime(datoTid,2)
  if CStr(datoDB) = Cstr(Date) then
    str = "kl. " & FormatDateTime(datoTid,4)
  elseif CStr(datoDB) = CStr(DateAdd("d", -1, Date)) then
    str = "Igår kl. " & FormatDateTime(datoTid,4)
  else
    str = FormatDateTime(datoTid,2) & " " & FormatDateTime(datoTid,4)
  end if
  lavDato = str
end function

Tusind tak eagleeye det virker præcis som det skal.