Hi Nikolay,
+call testWeekday(DateSerial(2000, 1, 1), vbSaturday, 1) +call testWeekday(DateSerial(2000, 1, 1), vbSaturday, 1)
You have this line twice. Is this intentional?
Maybe you could add a test where second argument of Weekday is omitted.
Thanks, Robert