Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: 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 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
10-1096808482
SMT
2004-10-03 17:01
2005.07.18
Работа с компонентами ExcelApplication и другими со страницы Serv


1-1119872622
Addast
2005-06-27 15:43
2005.07.18
копия


14-1119529290
X9
2005-06-23 16:21
2005.07.18
Схема советских колонок S90


3-1118208152
DimonS
2005-06-08 09:22
2005.07.18
Подскажите, почему не происходит очистка таблицы?


14-1119628707
alpet
2005-06-24 19:58
2005.07.18
Compile this :)