'(c) Немиро Алексей
'http://hypertech.ru
'mailto:admin@hypertech.ru
Public Function IsWeekend(ByVal vntDate As Variant) As Boolean
 Dim bResult As Boolean
 If IsDate(vntDate) Then
  If (Weekday(vntDate, vbMonday) Mod 6 = 0 Or Weekday(vntDate, vbMonday) Mod 7 = 0) Then
   bResult = True
  Else
   bResult = False
  End If
 Else
  Err.Raise 13, "Указана не корректная дата"
 End If
 IsWeekend = bResult
End Function