er datoen = i går ?

DateAdd

igaar = DateAdd("d", -1, Date())

if dato = igaar then
  'Det var i går

else

end if

igaar = Date()-1
er lidt nemmere, men skulle gerne gøre det samme .)

Ja eller bare igar = date()-1

-Anders

jeg nåede vist ikke lige at formulere mig så godt i går, da jeg havde ret travlt.
de foreslag i giver mig, fortæller blot hvad datoen var i går.
jeg har lavet følgende funktion, som jeg blot ønskede at høre om man kunne lave kortere/lettere:

Function FormatWritedate(s)
    IF formatdatetime(s, 2) = formatdatetime(date(), 2) THEN
        FormatWritedate = "i dag kl. " & formatdatetime(s, 4)
    ELSEIF formatdatetime(s, 2) = formatdatetime(date()-1, 2) THEN
        FormatWritedate = "i går"
    ELSE
        FormatWritedate = formatdatetime(s, 1)
    END IF
End Function

ligemeget så ... =\