Как выполнить код в заданное время / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как выполнить код в заданное время

3 сообщений из 3, страница 1 из 1

Как выполнить код в заданное время

#40138652

Алгеброид

Участник

Сообщения: 1

Рейтинг: 0 / 0

VFP9 SP2
Простая программа с формой, на форме GRID c привязанной простой таблицей: po, запущена бессрочно.
В таблице поля:

po.pd дата ППР (планово-предупредительный ремонт оборудования)
po.adr адрес почты (начальников цехов)
po.ppr вид ППР (планово-предупредительный ремонт оборудования)

Требуется выполнить код (небольшой программный модуль отправка почты простого сообщения) в заданую дату, в заданное время, например в 12.06.2024 в 08:34
НЕ через промежутки времени (объект timer), А в заданную дату, и в заданное время - как это сделать?

через заданные промежутки времени интервал - сутки уже реализовано и работает есть уже рабочий код (интервал прописан в свойстве interval объекта timer) :

Код: VBA

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

SELECT po
GO top
DO WHILE !EOF()
bu=createobject('Outlook.Application')
od=bu.getnamespace('MAPI')
ox=od.getdefaultfolder(4)
ut=ox.items

IF po.pd=DATE()

mo=ut.add(0)
mo.to=po.adr
mo.subject="ЗАДАНИЕ НА ППР"
mo.body=alltrim(po.ppr)+" "+alltrim(po.sta)+" "+alltrim(po.inv)
mo.send

ENDIF

SKIP
ENDDO

...

Изменено: 06.06.2024, 10:33 - Алгеброид

Рейтинг:

0 / 0

06.06.2024, 10:30

| Ответить | Цитировать | Написать | Ответы

Как выполнить код в заданное время

#40139071

tnsr

Участник

Сообщения: 7

Рейтинг: 0 / 0

Алгеброид [игнорируется]

Google поиск "Планировщик заданий" PowerShell

...

Изменено: 09.11.2024, 20:14 - tnsr

Рейтинг:

0 / 0

09.11.2024, 20:13

| Ответить | Цитировать | Написать | Ответы

Как выполнить код в заданное время

#40140237

a.kornienko.ru

Участник

Сообщения: 3

Рейтинг: 0 / 0

tnsr [игнорируется]
Вариант задержки кода до заданной отметки даты и времени без использования сторонних объектов:

Код

1.
2.

T_start={^2025.03.23,11:13}
wait wind "" time T_start-datet()

...

Рейтинг:

0 / 0

01.03.2025, 04:19

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как выполнить код в заданное время

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=40140237&tid=2186977]:	0ms
get settings:	10ms
get forum list:	11ms
check forum access:	4ms
check topic access:	4ms
track hit:	36ms
get topic data:	14ms
get forum data:	3ms
get page messages:	52ms
get tp. blocked users:	1ms
others:	15ms

total:	150ms