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

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

Проблемы со временем [D7, XP]

Дмитрий ©   (2016-02-29 17:57:00) 

Почему текст на Panel1 не меняется?
procedure TFWellCome.FormShow(Sender: TObject);
var
tt: TTime;
st:string;
begin
   tt:=Now;
   if (tt>=StrToTime('00:00:00')) and (tt<StrToTime('06:00:00')) then
     Panel1.Caption:='Доброй ночи,';
   if (tt>=StrToTime('06:00:00')) and (tt<StrToTime('12:00:00')) then
     Panel1.Caption:='Доброе утро,';
   if (tt>=StrToTime('12:00:00')) and (tt<StrToTime('18:00:00')) then
     Panel1.Caption:='Добрый день,';
   if (tt>=StrToTime('18:00:00')) and (tt<=StrToTime('23:59:59')) then
     Panel1.Caption:='Добрый вечер,';
 end;
end;

---

Кщд   (2016-03-01 07:33:00) [1]

welcome

---

Германн   (2016-03-01 00:44:00) [2]

> Спасибо! Вот это помогло.
> tt:=frac(Now);
>

Ну да. Функция Time http://docwiki.embarcadero.com/Libraries/XE7/en/System.SysUtils.Timeнынче не в моде?

---

Дмитрий   (2016-02-29 22:21:00) [3]

> Игорь Шевченко ©   (29.02.16 18:33) [1]

Спасибо! Вот это помогло.
tt:=frac(Now);

---

Rouse_   (2016-02-29 19:18:00) [4]

Давеча был у врача, чуть ближе к вечеру, у него в мониторе сверху таблицы, где он мне направление выписывал, тоже было "Доброе утро, Доктор".
Знакомая картинка.

---

Игорь Шевченко   (2016-02-29 18:33:00) [5]

Потому что Now это еще и дата

Use Time, Luke

---

Наверх