I.T. Discussion Community!
-Collapse +Expand
ASP Classic
Search ASP Classic Group:

Advanced
-Collapse +Expand ASP Classic Store

Prestwood eMagazine

June Edition
Subscribe now! It's Free!
Enter your email:

   ► KBWebsite 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

1 Comments.
Share a thought or comment...
Comment 1 of 3

Does Testogen GNC offer guarantee policy? For latest updates and deals drop by https://testosteroneofficial.com/.

Posted 18 days ago

Comment 2 of 3

Great post,Thanks for providing us this great knowledge,Keep it up.

wallpaper desktop

Posted 16 days ago

Comment 3 of 3

The Trenorol is the "Action Hero" of Legal Steroids. For more details on legal trenbolone stop by https://canukloves.com/trenbolone/
for Trenbolone Canada Review.

Posted 10 days ago
 
Write a Comment...
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1226A1
Enter key:
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
10291
Since 4/2/2008
-
   Contact Us!
 
PrestwoodBoards.com was developed and is maintainted by me. Do you have a question or suggestion? Do you see a problem? Contact me now. My goal is to build an ad-free and spam-free source of I.T. information with many contributers (ok to promote your website/company in your bio). Yes, my company Prestwood IT Solutions is mentioned in my bio which shows with every post, but you can contribute and promote your pet project too!

1,045 People Online Now!!  
Sign In to see who's online now!  Not a member? Join now. It's free!
Show more stats...


©1995-2018 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech