Help : Scheduled agent not running

[LAD]

I have a scheduled agent which is supposed to run only on Saturdays and Sundays. However, it is not running at all. Here is the code I use to determine the day:

Sub Initialize
Dim dateTime As New NotesDateTime(Today)
If Weekday(dateTime.DateOnly) <> 1 Or Weekday(dateTime.DateOnly) <> 7 Then
Exit Sub
End If

In the agent schedule, I don\'t have the "Don\'t run on Weekends" checked. I do have checked the option to run every 30 minutes all day. The target is set to run on all new and modified documents. I know there were both new and modified documents.


Any ideas why the agent may not be running?

Thanks,