| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Опять про время... [D5]

Mikeee ©   (2002-05-03 15:50:00) 

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

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

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

---

Dj_Action   (2002-05-05 03:51:00) [1]

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

---

PaRL   (2002-05-03 16:44:00) [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 := "Ночь";

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

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

---

PaRL   (2002-05-03 16:43:00) [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 := "Ночь";

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

---

DPetrovich   (2002-05-03 16:17:00) [4]


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


---

Наверх