Функция WeekDay служит для определения дня недели (Понедельник, Вторник...). Сделаем программу, которая будет определять день недели. Создай новый проект(Standart EXE), на форму кинь 1 метку, кликни два раза по форме и в создавшейся процедуре запиши:

Dim xday 'Объявляем переменную xday как Variant(хотя можно написать Dim xday as long) 
 Private Sub Form_Load() 
 xday = WeekDay(Date, vbMonday) 'xday будет равна дню недели 
 If xday = 7 Then 'Если xday будет равна 7 то: 
 Label1.Caption = "Воскресенье" 'Label1.Caption будет равна Воскресенье 
 End If 

 If xday = 1 Then 'Дальше я не буду описывать, т.к. там все тоже самое 
 Label1.Caption = "Понедельник" 
 End If 
 If xday = 2 Then 
 Label1.Caption = "Вторник" 
 End If 
 If xday = 3 Then 
 Label1.Caption = "Среда" 
 End If 
 If xday = 4 Then 
 Label1.Caption = "Четверг" 
 End If 
 If xday = 5 Then 
 Label1.Caption = "Пятница" 
 End If 
 If xday = 6 Then 
 Label1.Caption = "Суббота" 
 End If 
 End Sub 
 

Кстати, кроме этой функции в VB есть еще около 20 функций связанных с датами и временем, но мы будем обходиться без них.