Try something like this:
[code:1:bfbee7867a]Dim A1_true as Byte, A2_true as Byte
If Hours = Program_a1(1) And Minutes = Program_a1(2) Then A1_true=1
If Hours = Program_a2(1) And Minutes = Program_a2(2) Then A1_true=1
If A1_true=1 Or A2_true=1 Then
'do things here
End If
[/code:1:bfbee7867a]
↧