Results 1 to 2 of 2

Thread: Last weeks Thursday date

  1. Jan 18th, 2005, 03:31 PM #1
    StevenH
    StevenH is offline

    Thread Starter
    Lively Member
    Join Date
    Oct 2000
    Posts
    98

    Last weeks Thursday date

    I would like to have last weeks Thursday date displayed in a msgbox... How can I do this?
    Reply With Quote Reply With Quote
  2. Jan 19th, 2005, 05:34 AM #2
    si_the_geek
    si_the_geek is offline
    Super Moderator si_the_geek's Avatar
    Join Date
    Jul 2002
    Location
    Bristol, UK
    Posts
    41,974

    Re: Last weeks Thursday date

    VB Code:
    1. Dim my_date As Date 

    2. my_date = Date

    3.  
    4. 'get into the end of "last week"

    5. my_date = DateAdd("d", -Weekday(my_date), my_date)

    6.  
    7. 'count backwards to thursday

    8. Do While Weekday(my_date) <> vbThursday

    9.   my_date = DateAdd("d", -1, my_date)

    10. Loop

    11.  
    12. 'show date

    13. MsgBox Format(my_date, "ddd d m yy")
    (Microsoft MVP from July 2007 to June 2017) . . . . . . . . . . Hitchhiker's Guide to Getting Help at VBForums

    Database Development FAQs/Tutorials (updated May 2011) (includes fixing common DB related errors, and [VB.Net] ADO.Net Tutorial, and [Classic VB] ADO tutorial /further steps)
    other useful DB bits: . Connection strings (alternative copy).•. MDAC/Jet/ACE downloads .•. SQL Server downloads .

    Classic VB FAQs (updated Oct 2010) (includes fixing common VB errors)
    some of my Classic VB bits: . Tutorial: How to automate Excel from VB6 (or VB5/VBA) .•. SQL 'Select' statement formatter/checker .•. Convert colour number to colour name .•. FlexGrid: fill from recordset .•. FlexGrid: AutoSize columns .•. DB Reserved Words checker .
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width