Przykład 1.

If Weekday(Date) = 6 Then MsgBox "Jutro zaczyna się weekend"

Przykład 2.

If Weekday(Date, 2) = 5 Then

MsgBox "Jutro jest piątek"

ActiveCell = "piątek"

ActiveCell.Font.Bold = True

ActiveCell.Font.ColorIndex = 5

ActiveCell.Font.Size = 14

ActiveCell.Interior.ColorIndex = 6

End If

Przykład 3.

If Weekday(Date, 2) = 6 or Weekday(Date, 2) = 7 Then

msgbox "dzisiaj jest weekend"

ActiveCell.Font.Bold = True

ActiveCell.Font.ColorIndex = 5

ActiveCell.Font.Size = 14

ActiveCell.Interior.ColorIndex = 6

End If

Przykład 4.

If Weekday(Date, 2) = 4 Then

MsgBox "Dzisiaj jest czwartek"

Else

MsgBox "Dzisiaj nie jest czwartek"

End If

Przykład 5.

Select Case Weekday(date, 2)

Case 1

Msgbox "Dzisiaj jest poniedziałek"

Case 2

Msgbox "Dzisiaj jest wtorek"

Case 5

Msgbox "Dzisiaj jest piątek"

Case Else

Msgbox "Dzisiaj nie jest ani poniedziałek, ani wtorek, ani piątek"

End Select

Przykład 6.

myValue = inputbox("wprowadź wartość")

Select Case myValue

Case Is <= 5

msgbox "Podana wartość jest mniejsza lub równa 5"

Case 6, 7

msgbox "Podana wartość to 6 lub 7"

Case 8 to 12

msgbox "Podana wartość jest z przedziału od 8 do 12"

Case Is > 12

msgbox "Podana wartość jest większa niż 12"

End Select