igor701 |
Пардон все работает не тот знак равенства стоял Private Sub Êíîïêà66_Click() Dim s As Long Dim t As Variant s = (10322 - (Weekday((Date), 7) * 24 * 60 + Hour(Time) * 60 + Minute(Time))) * 60 * 1000 'f s > 0 Then Me.TimerInterval = s Else Exit Sub End If |
...так, а где здесь это??
автор |
как можно выполнять определенный код каждую пятницу в 15:00 |
и что за тайный смысл заложен в этой константе:
автор |
s = (10322 - (Weekday((Date), 7) ... |
...судя по тому что всё выражение в скобках, вы приводите к минутам - это 10322 мин
10322 мин = 172,033333333333 ч = 7,16805555555556 суток
это чиво??