VPF::Сравнить время - Форум программистов

Mach3

Дата 29.11.2010, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

Привет..
Столкнулся с проблемой..
В программе пытаюсь реализовать работу по расписанию..
Проблема в следующем:

Код


time1, time2,time_now: string;
time1:='06:00:00';
time2:='02:00:00';
time_now:=TimeToStr(now);
if (time_now> time1) and (time_now<time2) then // это неправильно

как правильно описать условие, при котором time_now попадает в диапозон с 6 утра до 2х ночи..
может существует какая-нибудь функция сравнения времени?
хотя, больше-меньше для времени как-то обстрактно..

--------------------

Век живи - век учись...

QuickMan

Дата 29.11.2010, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 29.11.2010

Репутация: нет
Всего: нет

Цитата(Mach3 @ 29.11.2010, 12:41

)

time_now:=TimeToStr(now);

откуда ты взял (now) ?

Добавлено через 53 секунды
кажется там надо использовать TDate.. (я пока не оч опытный програмер..)

Mach3

Дата 29.11.2010, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

Виноват..

Код


time_now:=TimeToStr(Time); //текущее системное время в формате 00:00:00

--------------------

Век живи - век учись...

Snowy

Дата 29.11.2010, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

А зачем ты строки сравниваешь?
Датавремя - число, у которого целая часть - дата, дробная - время.
Бери дробные части и сравнивай их.
А хранить дату и время в текстовом формате - дело неблагородное, ибо он зависит от региональных настроек.
Например в Англии и США мало кто знает, что за время такое "18:32:19"
У них больше 12 часов не бывает.

Poseidon

Дата 29.11.2010, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Mach3 используй тип TTime. Сравнивай как числа. Только нужно твой диапазон разбить на два и смотреть попадает ли now в диапазон с 6:00:00 до 23:59:59 и с 00:00:00 до 02:00:00

Это сообщение отредактировал(а) Poseidon - 29.11.2010, 14:48

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Mach3

Дата 29.11.2010, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

Код


var
time1, time2, time3, time4, time_now : TTime;

begin
time1 := StrToTime('06:00:00');
time2 := StrToTime('02:00:00');
time3 := StrToTime('23:59:59');
time4 := StrToTime('00:00:00');
time_now:=now;

if ((time_now>time1) and (time_now<time3) or (time_now>time4) and (time_now<time2)) then
showmessage('yes')  else  showmessage('no');

Извините, но не получается..

--------------------

Век живи - век учись...

Mach3

Дата 29.11.2010, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

при использовании time_now:=time; все работает.
почему? в чем разница между функциями Now и Time?

--------------------

Век живи - век учись...

Snowy

Дата 29.11.2010, 18:04 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

now возвращает текущую дату и время.
целая часть дни, дробная время.
5000 дней, 8 часов и 23 минуты больше, чем 20 часов ;-)

Добавлено через 4 минуты и 15 секунд
Кстати, если у тебя конечная дата меньше начальной (например начало 20:00, конец 03:00), то к конечной дате просто прибавь 1.
Это превратит 03:00 сегодняшнего для в 03:00 завтрашнего дня.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »