Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

Опять про время...   Найти похожие ветки 

 
Mikeee ©   (2002-05-03 15:50) [0]

Уважаемые мастера ! Подскажите, пожалуйста !
Надо мне сделать такую штучку. Чтоб в зависимости от времени суток
в КомбоБоксе выводились разные значения.
Такой вариант не работает :

var
T:string;
-----------------------
T:=FormatDateTime("hh",Time);
if StrToInt(T)<8 or
StrToInt(T)>20 then
КомбоБокс.ItemIndex:=1
else
КомбоБокс.ItemIndex:=0;


Говорит несовместимые типы. Туплю сижу...


 
DPetrovich ©   (2002-05-03 16:17) [1]


T:=StrToInt(FormatDateTime("hh",Time));


 
PaRL ©   (2002-05-03 16:43) [2]

s := FormatDateTime("hh",now);
k := StrToInt(s);
if (k >= 12) and (k <= 17) then Label1.Caption := "День";
if (k >= 7) and (k < 12) then Label1.Caption := Утро";
if (k > 17) and (k <= 22) then Label1.Caption := "Вечер";
if (k < 7) or (k > 22) then Label1.Caption := "Ночь";

ЭТО работает.


 
PaRL ©   (2002-05-03 16:44) [3]

s := FormatDateTime("hh",now);
k := StrToInt(s);
if (k >= 12) and (k <= 17) then Label1.Caption := "День";
if (k >= 7) and (k < 12) then Label1.Caption := Утро";
if (k > 17) and (k <= 22) then Label1.Caption := "Вечер";
if (k < 7) or (k > 22) then Label1.Caption := "Ночь";

ЭТО работает.

PS S : STRING. Не знаю я чё там у тебя несовместимое.



 
Dj_Action   (2002-05-05 03:51) [4]

Вот мозгопарство... да там с датами можно напрямую работать



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-64615
kimblch
2002-05-08 03:31
2002.05.20
Случаем никто ФИО программно не склонял????


1-64650
Filat
2002-05-08 13:16
2002.05.20
Анализ и структуризация и накопление инфы из log-файлов.


3-64550
lukey
2002-04-22 07:51
2002.05.20
Можно ли работать с таблицами db, dbf без BDE?


3-64481
Vint
2002-04-15 20:59
2002.05.20
Помогите начинающему разработчику баз данных.


14-64794
Win32
2002-04-09 12:28
2002.05.20
Microsoft и OpenSource? Да или Нет?