Системное время

@Тимур05 · Регистрация: 31.08.2011

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

Привет. Хочу сделать нечто вроде напоминалки, то есть когда наступает определенная дата и время выскочит сообщение. Так вот как подцепить это время от винды?

@Sigin · 20.11.2013, 23:13

Сообщение от Тимур05

Как подцепить это время от винды?

По поводу работы с временем почитайте тут: Кликабельно
Для того чтобы по наступлению нужного времени выводить мэсэдж можно сделать подобное:
Кидаем на форму таймер и в обработчик событий онТаймер кидаем подобное:

Delphi
1
if now=startdatetime then showmessage('Time');

где startdatetime - переменная типа TDateTime. В ней храним время и дату когда нужен сигнал.

@northener · 21.11.2013, 00:14

Сообщение от nestquik2

1
if now=startdatetime then showmessage('Time');
где startdatetime - переменная типа TDateTime. В ней храним время и дату когда нужен сигнал.

Сигнала не будет, если время не нулевое.

Добавлено через 16 секунд

Сообщение от nestquik2

1
if now=startdatetime then showmessage('Time');
где startdatetime - переменная типа TDateTime. В ней храним время и дату когда нужен сигнал.

Сигнала не будет, если время не нулевое.

@randomav · 21.11.2013, 00:37

Если в таймере, то необходимо добавить погрешность примерно равную времени на этом таймере.

или так

Delphi
1
if FormatDateTime('hh:mm:ss',now) = 'xx:xx:xx' then

Где 'xx:xx:xx' время в формате ЧЧ:ММ:СС

Цикл таймера сделать секунду(1000)

@northener · 21.11.2013, 00:56

randomav, вероятность сработки уже выше. Но все равно не 100%

@randomav · 21.11.2013, 09:06

Работает

@Тимур05 · 21.11.2013, 13:57 **[ТС]**

А каким образом ежесекундно брать системное время в память программы? чтобы сверять "now" со "startdatetime"?

@Sigin · 21.11.2013, 16:58

Сообщение от Тимур05

"now"

это и есть системное время и дата. В обработчике онТаймер сверять можно.

@randomav · 21.11.2013, 22:45

Тимур, а чем вас мое решение выше не устраивает???

@northener · 22.11.2013, 03:13

Сообщение от randomav

Работает

Везет. Потому и работает. Если напоминалка не важная, то и так сойдёт. Если важная тогда рискуешь пролететь.

Добавлено через 2 минуты

Сообщение от Тимур05

А каким образом ежесекундно брать системное время в память программы? чтобы сверять "now" со "startdatetime"?

В учебнике для первоклашек по Дельфи написано что Now это функция, которая возвращает текущее время и дату.

@randomav · 22.11.2013, 09:08

Ну ок, тогда можно сделать следующим образом. Сравниваем диапазон + флаг, что сообщение выведено. Далее флаг снимается скажем через 30(требуемое значение) минут.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function TimeToSec(date:String):Integer;
var h,m,s:Integer;
    dt:TDateTime;
begin
  dt:=StrToDateTime(date);
  h:=StrToInt(FormatDateTime('hh',dt));
  m:=StrToInt(FormatDateTime('mm',dt));
  s:=StrToInt(FormatDateTime('ss',dt));
  result:=h*3600+m*60+s;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var nw,needTime:String;
    h,m,s,betweenTime:Integer;
begin
  nw:=FormatDateTime('hh:mm:ss',now);
  Label1.Caption:=nw;
  needTime:=FormatDateTime('hh:mm:ss',StrToDateTime(Edit1.Text));
  betweenTime:=TimeToSec(nw)-TimeToSec(needTime);
  if (not msgShowed) and (betweenTime<=3) and (betweenTime>=0) then
  begin
    msgShowed:=true;
    showmessage('Time!');
  end
  else if msgShowed and (betweenTime>=1800)then msgShowed:=false;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  msgShowed:=false;
end;

@northener · 23.11.2013, 03:16

Сообщение от randomav

Ну ок, тогда можно сделать следующим образом

Вот это уже рабочий вариант.
Хотя и слишком "перемудренный".
Самое главное в "напоминалках" - сравнивать время не на равенство, а на больше/меньше. И если больше - то "срабатывать". А дальше нужно учитывать в полной мере суть этой "напоминалки".

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Тимур05 12 / 12 / 0 Регистрация: 31.08.2011 Сообщений: 458

	Системное время 20.11.2013, 19:58. Показов 2322. Ответов 11 Метки нет (Все метки) Привет. Хочу сделать нечто вроде напоминалки, то есть когда наступает определенная дата и время выскочит сообщение. Так вот как подцепить это время от винды? 0

@northener пофигист широкого профиля 4770 / 3206 / 862 Регистрация: 15.07.2013 Сообщений: 18,613
	21.11.2013, 00:56
	randomav, вероятность сработки уже выше. Но все равно не 100% 0

@Тимур05 12 / 12 / 0 Регистрация: 31.08.2011 Сообщений: 458
	21.11.2013, 13:57 [ТС]
	А каким образом ежесекундно брать системное время в память программы? чтобы сверять "now" со "startdatetime"? 0

@randomav 15 / 8 / 1 Регистрация: 19.07.2012 Сообщений: 70
	21.11.2013, 22:45
	Тимур, а чем вас мое решение выше не устраивает??? 0