Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 187
от 25.12.2005, 01:12

Администратор:Калашников О.А.
В рассылке:Подписчиков: 111, Экспертов: 16
В номере:Вопросов: 1, Ответов: 3


Вопрос № 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
Отправлен: 19.12.2005, 10:46
Вопрос задал: Копысов Николай Александрович (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Николай К
Здравствуйте, Копысов Николай Александрович!
Дату можна сформатировать следующим образом:

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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Яндекс Rambler's Top100

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Архив рассылки
Отписаться Вебом Почтой
Вспомнить пароль

В избранное