Текущий архив: 2018.03.04;
Скачать: CL | DM;
Вниз
Проблемы со временем Найти похожие ветки
← →
Дмитрий (2016-02-29 17:57) [0]Почему текст на 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-02-29 18:33) [1]Потому что Now это еще и дата
Use Time, Luke
← →
Rouse_ © (2016-02-29 19:18) [2]Давеча был у врача, чуть ближе к вечеру, у него в мониторе сверху таблицы, где он мне направление выписывал, тоже было "Доброе утро, Доктор".
Знакомая картинка.
← →
Дмитрий (2016-02-29 22:21) [3]
> Игорь Шевченко © (29.02.16 18:33) [1]
Спасибо! Вот это помогло.tt:=frac(Now);
← →
Германн © (2016-03-01 00:44) [4]
> Спасибо! Вот это помогло.
> tt:=frac(Now);
>
Ну да. Функция Time http://docwiki.embarcadero.com/Libraries/XE7/en/System.SysUtils.Time нынче не в моде?
← →
Кщд © (2016-03-01 07:33) [5]welcome
Страницы: 1 вся ветка
Текущий архив: 2018.03.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.004 c
