Задание даты в Delphi

@Landser · Регистрация: 18.04.2009

Author24 — интернет-сервис помощи студентам

Добрый день.подскажите пожалуйста:
мне требуется выполнять по расписанию (например каждый четверг в 23.00)
некоторую процедуру X,как мне проверять, соответствует ли текущее время/дата Now той дате,при наступлении которой я хочу вызывать процедуру,те как задать переменную типа время,чтобы она содержала год, день недели,месяц, время??
подскажите пожалуйста.спасибо)

@Phantom · 18.04.2009, 17:17

Объявляешь переменную:

Delphi

1	var t: _systemtime;

Это структура, далее считываешь туда системное время, которое в данный момент:

Delphi

1	getsystemtime(t);

У этой структуры есть поля:
t.wDay, t.wMonth, t.wYear, t.wHour, t.wMinute, t.wSecond, t.wMilliseconds
соответственно день, месяц, год, час, минута, секунда, миллисекунда. Есть еще wDayOfWeek - день недели.
Всё это обычные числа. А в программе своей сделаешь проверку. Т.е. считаешь дату и смотришь, если wDayOfWeek равен 4, wHour=23 и т.д. , то выполняешь действие.

И структура и функция объявлены в модуле windows, который по умолчанию стоит в разделе uses.

@Landser · 19.04.2009, 16:31 **[ТС]**

спасибо,Phantom! буду пробовать

@Landser 57 / 7 / 4 Регистрация: 18.04.2009 Сообщений: 429
		1
	Задание даты в Delphi 18.04.2009, 16:54. Показов 2258. Ответов 2 Метки нет (Все метки) Добрый день.подскажите пожалуйста: мне требуется выполнять по расписанию (например каждый четверг в 23.00) некоторую процедуру X,как мне проверять, соответствует ли текущее время/дата Now той дате,при наступлении которой я хочу вызывать процедуру,те как задать переменную типа время,чтобы она содержала год, день недели,месяц, время?? подскажите пожалуйста.спасибо) 0

@Landser 57 / 7 / 4 Регистрация: 18.04.2009 Сообщений: 429
	19.04.2009, 16:31 [ТС]	3
	спасибо,Phantom! буду пробовать 0

Задание даты в Delphi

Решение