Prestwood IT: Find Last Day of Week (ASP Classic Coding)

► KB ► Website Scri... ► ASP Classic

Print This

Part of the mo. lesson in the Jan 16 Issue of Prestwood eMag

ASP Classic Q&A Flashcard:

A flashcard from our ASP Classic Flashcards Library

A FAQ from our ASP Classic FAQ Page

Find Last Day of Week

Question:

How do you find last Monday? I want to return a date for last Monday or today if today is Monday.

Answer:

While Weekday(ADate) <> vbMonday
     ADate = DateAdd("d", -1, ADate)
WEnd

You could wrap this up in a function as follows:

Function SU_GetLastDOW(ADate, AWeekDayConst)
    While Weekday(ADate) <> AWeekDayConst
        ADate = DateAdd("d", -1, ADate)
    WEnd
    
    SU_GetLastDOW = ADate
End Function

Comments

0 Comments.

Share a thought or comment...

FAQ Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205.

Visit Profile

KB Article #100713 Counter

14959

Since 4/2/2008

Prestwood eMagazine

Question:

Comments