Je datum o víkendu ?

Public Function IsWeekend(ByVal vntDate As Variant) As Boolean
   Dim bResult As Boolean
   If IsDate(vntDate) Then
      If (Weekday(vntDate) Mod 6 = 1) Then bResult = True Else bResult = False
   Else
      Err.Raise 13, "Mišmaš, musíte zadat datum. "
   End If
   IsWeekend = bResult
End Function

Na událost Click tlačítka zapište:

Private Sub Command1_Click()

   If IsWeekend(CDate(Text1.Text)) Then
      MsgBox "Zadané datum je víkend"
   Else
      MsgBox "Zadané datum není víkend"
   End If

End Sub

Zpět