Counting Back 20 Working Business Days

[Guest]

This is what I have now. It working but it counts weekends. I would just like
20 Work days.


strSQL = "SELECT tblApprovedTrades.FundID, tblApprovedTrades.Ticker,
tblApprovedTrades.NavChkDate, " _
& "tblApprovedTrades.BuySellShrs, tblApprovedTrades.RemainingShares
FROM tblApprovedTrades WHERE (((tblApprovedTrades.NavChkDate)>=Date()-20) AND
((tblApprovedTrades.ShrPrchCplt)=0));"


This is in a Module.

 

[Douglas J. Steele]

Check the Date/Time section of "The Access Web" http://www.mvps.org/access/
for a couple of different solutions.

Alternatively, I wrote about this in my September, 2004 "Access Answers"
column in Pinnacle Publication's "Smart Access". You can download the column
(and sample database) for free at
http://www.accessmvp.com/DJSteele/SmartAccess.html