Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.054 c
3-1118300903
Антоныч
2005-06-09 11:08
2005.07.18
Запрос в БД Access, защищенную паролем


10-1096259081
saysu
2004-09-27 08:24
2005.07.18
Какая технология лучше для построения многозвенки


1-1119918781
Витёк
2005-06-28 04:33
2005.07.18
память


3-1118169990
Erich
2005-06-07 22:46
2005.07.18
Автоинкрементное поле


1-1119614355
bns
2005-06-24 15:59
2005.07.18
TFileStream buffer





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский