Day of week calculation

[vba317]

I am tring to develop a day of week calculation function to identify the day of the week. I am getting a compile error Argument not optional. Any help would be appreciated.

Sub Last_Monday(vDate As Date)
     'if today is Monday, then return today's date
    If Weekday(vDate, vbSunday) = 2 Then
        Last_Monday = vDate
    Else
        Last_Monday = vDate - Weekday(vDate, vbSunday) + 2
    End If
End Sub

 

[SkipVought]

Hi,

[b]Function[/b] Last_Monday(vDate As Date)
     'if today is Monday, then return today's date
    If Weekday(vDate, vbSunday) = 2 Then
        Last_Monday = vDate
    Else
        Last_Monday = vDate - Weekday(vDate, vbSunday) + 2
    End If
End [b]Function[/b]

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

Furthermore:
Function Last_Monday(vDate As Date) As Date


Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

I made this change now I can't use the sub designation how do I use this function within another macro?

 

[PHV]

WhatEverYouWantAsLastMonday = Last_Monday(WhatEverTheTestedDateIs)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DaveInIowa]

You may want to explicitly declare your function as Public also.
Are you sure your logic is correct? If vDate is a Sunday, then you'll get the next day. Are you sure you don't mean:

Public Function Last_Monday(vDate As Date) As Date
    Last_Monday = vDate - Weekday(vDate, vbMonday) + 1
End Function