Workdays 1

[Chance1234]

I need help on a function that returns the date 2 working days before the current date, so if the date was monday it would return thursdays date the week before

im this far

Function fUnCntTwoDatysBack(Togo As Date)
Dim IsWeekend As Boolean

Togo = Togo - 2

Select Case Weekday(Togo)
Case vbSaturday, vbSunday
IsWeekend = True
Case Else
IsWeekend = False
End Select

Chance

http://WWW.5YLAC.S5.COM

 

[nickjar2]

try something on the lines of this:

Dim d As Date
d = DateAdd("d", -2, Date)

Select Case Weekday(d)

Case vbSunday
MsgBox "sunday"
Case vbSaturday
MsgBox "saturday"
Case Else
MsgBox "weekday"
End Select Nick (Everton Rool OK!)

 

[nickjar2]

Sorry, I hadn't quite finished it:

Sub getDate()
Dim d As Date
d = DateAdd("d", -2, Date)

Select Case Weekday(d)

Case vbSunday
d = DateAdd("d", -2, d)
Case vbSaturday
d = DateAdd("d", -1, d)
End Select

End Sub Nick (Everton Rool OK!)

 

[Chance1234]

i get ya cheers!

http://WWW.5YLAC.S5.COM

 

[xlbo]

I realise that it is already done in a function, but thought I'd add the formula solution:
=IF(WEEKDAY(TODAY())=1,TODAY()-3,IF(OR(WEEKDAY(TODAY())=2,WEEKDAY(TODAY())=3),TODAY()-4,TODAY()-2))

Geoff