Weekday(date, [ firstdayofweek ])    ' returns day of week [1-7]

' firstdayofweek:
'    vbUseSystem    0    API NLS parameter
'    vbSunday    1    [Default]
'    vbMonday    2
'    vbTuesday    3
'    vbWednesday    4
'    vbThursday    5
'    vbFriday    6
'    vbSaturday    7