VB6 - A function for obtaining the Day of the Week given the Date

[Hack]

I echo si_the_geek's comments. Thanks for sharing.

The leap year testing could also be optimized a bit by using the DateSerial function

Private Function IsThisALeapYear(ByVal intYear As Integer) As Boolean
     IsThisALeapYear = (29 = Day(DateSerial(intYear, 2, 29)))
End Function