Вопрос № 31810: Товарищи эксперты есть проблема не магу закончить выражение мне нужно Date(15 числа каждого месяца текущего года) в Time = #8:04:00 AM# возникло событие Call Shell("net send [имя]""текст """, 1) помогите если можете. <br...
Вопрос № 31.810
Товарищи эксперты есть проблема не магу закончить выражение мне нужно Date(15 числа каждого месяца текущего года) в Time = #8:04:00 AM# возникло событие Call Shell("net send [имя]""текст """, 1) помогите если можете.
PS. Заранее спасибо.
If Time = #8:04:00 AM# And Date = (???) Then
Call Shell("net send [имя]""текст """, 1)
End If
Отвечает: Николай К
Здравствуйте, Копысов Николай Александрович!
Дату можна сформатировать следующим образом:
Dim EventDate As Date
EventDate = DateSerial(Year(Date), Month(Date), 15)
Далее как у Вас:
If Time = #8:04:00 AM# And Date = EventDate Then
Call Shell("net send [имя]""текст """, 1)
End If
Ответ отправил: Николай К (статус: 1-ый класс)
Отправлен: 19.12.2005, 10:59 Оценка за ответ: 5 Комментарий оценки: Спасибо_Теска_выручил
Отвечает: Тираель
Здравствуйте, Копысов Николай Александрович!
мне нужно Date(15 числа каждого месяца текущего года) в Time = #8:04:00 AM#
либо я дурак либо мну пива много на выходных выпил либо ВАС запарили так что не можете обяснить ЧТО У ВАС НЕ ПОЛУЧИЛОСЬ.
--------- Ищите истину там где ее НЕТ
Ответ отправил: Тираель (статус: 4-ый класс)
Отправлен: 19.12.2005, 11:11
Отвечает: AlexanderZh
Здравствуйте, Копысов Николай Александрович!
if day(date)=15 and hour(date)=8 and minute(date)=4 then ...
вроде так (в синтаксисе не уверен - не проверял...)
Ответ отправил: AlexanderZh (статус: 3-ий класс)
Отправлен: 19.12.2005, 18:34