[AccessD] check weekday

Oleg_123 at xuppa.com Oleg_123 at xuppa.com
Wed Dec 3 11:30:19 CST 2003


is there a shorter way of doing this ?

dtEdate = Format(Now() - 3, "mm-dd")

If WeekDay(dtEdate, vbSaturday) Then
    dtEdate = dtEdate - 1
ElseIf WeekDay(dtEdate, vbSunday) Then
    dtEdate = dtEdate - 2


-----------------------------------------
Get Breaking News from CNN, ABC, NBC, CBS Now.
http://www.xuppa.com/news/?link=webmail




More information about the AccessD mailing list