VBA Date calculation function

[Sihle]

Hello all,

I have a form with a date control, the date defaults to today's date, now my mentor requested that the date default to (current date - 2days). this is becase we don't have data for weekend date and, I need something like Now() - 2, but i need to eliminate weekend data. i need a date function that can work

Thank you all

 

[Andrew Poulsom]

Choose Tools|Add-Ins, check "Analysis ToolPak - VBA" and click OK. In the VBE click your workbook, choose Tools|References, check atpvbaen.xls and click OK.

You can get the first working day before today like this:

Sub Test()
    Dim MyDate As Date
    MyDate = Workday(Date, -1)
    MsgBox MyDate
End Sub