Функция IsDate

Option Explicit
Dim Время_на_часах As Date ' Так как мы анализируем время на часах, то объявляем как переменную
Dim Будильник_установлен As Boolean ' А Эта переменная принимает только два значения- true и false и нужна она нам для работы будильника
 
Private Sub Включить_будильник() 'какие действия производятся при срабатывании этой процедуры
 Будильник_установлен = True ' присваиваем значение переменной, от которого будет зависеть работа будильника
 Метка_будильника.Caption = "Будильник установлен на:" 'Меняем надпись над циферблатом будильника
 Кнопка_включения_выключения_будильника.Caption = "Выключить будильник" 'Меняем надпись на кнопке
End Sub
 
Private Sub Выключить_будильник() 'какие действия производятся при срабатывании этой процедуры
 Будильник_установлен = False ' присваиваем значение переменной, от которого будет зависеть работа будильника
 Метка_будильника.Caption = "Будильник отключен" 'Меняем надпись над циферблатом будильника
 Кнопка_включения_выключения_будильника.Caption = "Включить будильник" 'Меняем надпись на кнопке
End Sub
 
Private Sub Включить_сигнал_будильника() 'Проедура которая воспроизводит музыкальный файл
 плеер.Command = "close" 'Закрывает музыкальный файл(это для корректной работы проигрывателя, если мы до этого забыли закрыть)
 плеер.Command = "open" 'Открываем музыкальный файл
 плеер.Command = "play" 'Проигрываем музыкальный файл
End Sub
 
Private Sub Смена_даты_и_дня_недели() 'процедура, которая производит смену даты и дня недели(обноврение ее)
 Циферблат_даты.Text = Date 'Обновляет дату на циферблате даты
 Циферблат_дня_недели.Text = WeekdayName(DatePart("w", Date, vbMonday)) ' обновляет день недели на циферблате дня недели
End Sub
 
Private Sub Form_Load() 'что будет происходить при загрузке формы
 плеер.DeviceType = "WaveAudio" 'Указывает какой тип музыкальных файлов будет проигрывать проигрыватель
 плеер.FileName = "C:\Users\Vdekameron\Desktop\wav\Эй толстый - Уматурман.wav"
 Смена_даты_и_дня_недели 'Имя процедуры, которая производит смену даты и дня недели
 Будильник_установлен = True 'Имя процедуры, которая производит выключение будильника
 Выключить_будильник
End Sub
 
Private Sub Кнопка_включения_выключения_будильника_Click() 'Что будет происходить при нажатии на эту кнопку
 If Будильник_установлен Then Выключить_будильник Else Включить_будильник 'если переменная будильник установлен= true(в программе это можно не писать)то выполняем процедуру-выключить_будильник, иначе-включить будильник
End Sub
 
Private Sub Кнопка_выключения_сигнала_Click() 'что будет происходить при нажатии на эту кнопку
 плеер.Command = "close"
End Sub
 
Private Sub Таймер_часов_Timer() 'Что будет происходить при работе таймера
 Время_на_часах = Time 'Переменной присваиваем значение
 Циферблат_часов.Text = Время_на_часах 'выводим на циферблат часов значение, которому равна переменная
 If Time = 0 Then Смена_даты_и_дня_недели 'Если время -полночь, то заставляем работать процедуру по смене даты и днянедели
 If Циферблат_будильника.Text = Время_на_часах And Будильник_установлен Then Включить_сигнал_будильника
End Sub

Время_на_часах = Время_на_будильнике

Private Sub Command1_Click()
 pleer.DeviceType = "WaveAudio"
 pleer.FileName = "V:\Ìóçûêà\cool 2010\niusha_-_chudo.mp3"
 pleer.Command = "close"
 pleer.Command = "open"
 pleer.Command = "play"
End Sub