Главная страница
    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.037 c
14-1119618538
VMcL
2005-06-24 17:08
2005.07.18
Ну вот, учёба закончилась


9-1112803576
Sis3
2005-04-06 20:06
2005.07.18
Как распечатать картинку созданную в OpenGl


14-1119443532
Seg
2005-06-22 16:32
2005.07.18
Функция округления от Мелкософта


1-1120372028
Ванечка
2005-07-03 10:27
2005.07.18
События


5-1089878644
Sandman25
2004-07-15 12:04
2005.07.18
TFont в качестве property





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский