Как сделать чтоб программа работала определенный промежуток времени - 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

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы