событие по времени и дню недели

igor701
Дата: 12.11.2009 22:39:25
подскажите пожалуйста как можно выполнять определенный код каждую пятницу в 15:00 таймер не подходит вроде
й
Дата: 12.11.2009 23:49:30
панель управления - Назначенные задания
любой другой способ - наркоманИя
igor701
Дата: 13.11.2009 01:10:00
й,
да впринцепе я не наркаман на получилось вроде выложу вдруг кому пригодится
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
Me.TimerInterval = s
End Sub
СБРАСЫВАТЬ ТАЙМЕР В СОБЫТИИ ПО ТАЙМЕРУ
только вот почемуто если добовляешь условие If для отрицательного таймера то работать перестает вот в таком виде не работает не передает данные в таймер может кто чего посоветует

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

End Sub
igor701
Дата: 13.11.2009 01:16:12
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
Me.TimerInterval = s
End Sub
СБРАСЫВАТЬ ТАЙМЕР В СОБЫТИИ ПО ТАЙМЕРУ
только вот почемуто если добовляешь условие If для отрицательного таймера то работать перестает вот в таком виде не работает не передает данные в таймер может кто чего посоветует

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

End Sub

Пардон все работает не тот знак равенства стоял
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
й
Дата: 13.11.2009 12:01:09
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 суток
это чиво??