Examples: Weekday function Dim x As Variant, wd As Integer x = DateNumber(1993, 7, 7) wd% = Weekday(x) Print wd% ' Output: ' 4