Как сделать чтоб программа работала определенный промежуток времени - VB
Формулировка задачи:
Всем привет!
Подскажите, пожалуйста, следующие:
Нужно чтоб программа работала определенное время, а потом не запускалась.
Например: c 01.01.2004 10.45.00 до 08.01.2004 21.00.00, где программа работает в это время, а до этого времени или после него-не запускалась.
Нужно обязательно с минутами и секундами. Я долго мучалась, но ничего толкового не приходит в голову.
За ранее - спасибо
Решение задачи: «Как сделать чтоб программа работала определенный промежуток времени»
textual
Листинг программы
Private Sub Form_Load() '<EhHeader> On Error GoTo Err_debug '</EhHeader> Dim FromTime As Date Dim ToTime As Date FromTime = VBA.CDate(VBA.DateSerial(2004, 1, 1) & ' ' & VBA.TimeSerial(10, 45, 0)) ToTime = VBA.CDate(VBA.DateSerial(2004, 1, 8) & ' ' & VBA.TimeSerial(21, 0, 0)) If VBA.DateDiff('s', VBA.Now, FromTime) <= 0 And VBA.DateDiff('s', VBA.Now, ToTime) > 0 Then MsgBox 'ok' Else MsgBox 'false' End If '<EhFooter> lb_out: Exit Sub Err_debug: MsgBox Err.Number & ':' & Err.Description & vbCrLf & _ 'in Project1.Form1.Form_Load', vbCritical Resume lb_out '</EhFooter> End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д