GOL_RegDisko1_z = Date + GOL_RegDisko1_z
  GOL_RegDisko1_po = DateAdd("d",  1 , Date) + GOL_RegDisko1_po
  If GOL_RegDisko1_z >= Now() And GOL_RegDisko1_po <= Now() Then
    MsgBox "Правильно"
  End If

Public Function OnIntervalTimer(Time1 As Date, Time2 As Date) As Boolean
  Dim h1 As Long: Dim m1 As Long: Dim hz As Long
  Dim h2 As Long: Dim m2 As Long: Dim mz As Long

  h1 = hour(Time1):     h2 = hour(Time2):     hz = hour(time)
  m1 = Minute(Time1):   m2 = Minute(Time2):   mz = Minute(time)
  
  If h1 > h2 Then h2 = h2 +  24 : If hz < h1 Then hz = hz +  24 
  
  If h1 = h2 Then
   If hz = h1 And mz >= m1 And mz <= m2 Then
     OnIntervalTimer = True
   End If
  Else
   If hz >= h1 And hz <= h2 Then
     If hz = h2 Then
       If mz <= m2 Then OnIntervalTimer = True
       Exit Function
     End If
     If hz = h1 Then
       If mz >= m1 Then OnIntervalTimer = True
       Exit Function
     End If
     OnIntervalTimer = True
   End If
  End If
End Function

TimeSerial(2, 0, 0)

?#02:00:00#+date

Public Function ProverkaIntervalaVremeni(p_ot As Date, p_do As Date) As Boolean
  ProverkaIntervalaVremeni = p_ot <= p_do And p_ot <= Time And p_do >= Time Or p_ot >= p_do And p_ot <= Time And DateAdd("d",  1 , p_do) >= Time
End Function

And DateAdd("d", 1, p_do) >= Time

Public Function ProverkaIntervalaVremeni(p_ot As Date, p_do As Date) As Boolean
  ProverkaIntervalaVremeni = p_ot <= p_do And p_ot <= Time And p_do >= Time Or p_ot >= p_do And p_ot <= Time
End Function

Public Function ProverkaIntervalaVremeni(p_ot As Date, p_do As Date) As Boolean
  ProverkaIntervalaVremeni = p_ot <= p_do And p_ot <= Time And p_do >= Time Or p_ot >= p_do And p_ot <= Time Or time<=p_do and time<=p_ot and p_ot>=p_do
End Function

And Time <= p_ot

Public Function ProverkaIntervalaVremeni(p_ot As Date, p_do As Date) As Boolean
  ProverkaIntervalaVremeni = p_ot <= p_do And Time >= p_ot And Time <= p_do Or p_ot >= p_do And Time >= p_ot Or p_ot >= p_do And Time <= p_do
End Function

If time >= GOL_PowerOffTime Then StatusNeMojnaOffComp = True

   If Not (time > GOL_PowerOffTime And StatusNeMojnaOffComp = True) Then
     StatusNeMojnaOffComp = False
   End If

   If time >= GOL_PowerOffTime And StatusNeMojnaOffComp = False And GOL_PowerOff = True Then
       Call KnOffComp
   End If