Вниз
Скачать: CL | DM;

Работа со временем   Найти похожие ветки 

← →
NeoPlayer ©   (2005-06-27 05:23) [0]

Неправильно обрабатывает данные:
dTime:=Now;//Получаю текущее время - 06:15:23
If (dTime>=StrToTime("08:00:00")) and (dTime<StrToTime("17:00:00")) Then
status:=0;
If (dTime>=StrToTime("17:00:00")) and (dTime<StrToTime("23:00:00")) Then
status:=1;
if (dTime>=StrToTime("23:00:00")) and (dTime<StrToTime("08:00:00")) Then
status:=2;

Но выдаёт почему-то status=0
Почему? И как правильно сравнивать время.


← →
Antonn ©   (2005-06-27 05:36) [1]


> StrToTime

formatdatetime("HH:NN:SS",now)


← →
Юрий Зотов ©   (2005-06-27 05:53) [2]

> NeoPlayer ©   (27.06.05 05:23)

1. Замените Now на Time. Детали см. в справке.

2. Как это может работать:
if (dTime>=StrToTime("23:00:00")) and (dTime<StrToTime("08:00:00")) Then

Если время больше 23:00, то как оно может быть еще и меньше 8:00 ?


← →
sniknik ©   (2005-06-27 08:52) [3]

> Если время больше 23:00, то как оно может быть еще и меньше 8:00 ?
так это наверное 8 часов следующего дня.

> И как правильно сравнивать время.
в твоем случае видимо правильно сравнивать вместе с датой.


← →
evvcom ©   (2005-06-27 09:16) [4]


> видимо правильно сравнивать вместе с датой

А что, еще и дата есть? :)

В его случае, возможно, достаточно будет в 3-ем сравнении заменить "and" на "or".


← →
Yuri Btr ©   (2005-06-27 11:17) [5]

to NeoPlayer ©  
Это звонилка ? :)
Вообще то лучше извлекать час функцией HourOf (Now) и сравнивать его с 8, 17, 23


← →
NeoPlayer ©   (2005-06-27 14:38) [6]

Большое спасибо Yuri Btr за очень дельный совет, не знал -  исправлюсь.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
14-1119347931
wHammer
2005-06-21 13:58
2005.07.18
Помогите найти старую библиотеку компонент ABC для D6


3-1118319661
Uran
2005-06-09 16:21
2005.07.18
Графика в Ado


1-1119974831
capkoh
2005-06-28 20:07
2005.07.18
Отдельные формы сверху


3-1117706174
Ega23
2005-06-02 13:56
2005.07.18
Invalid BLOB handle in record buffer


1-1120153650
Radgar
2005-06-30 21:47
2005.07.18
Разбивание TImage




   Наверх