...
Label1.Caption:=TimeToStr(now);
...
получение Мин-сек
Приветствую всех!
Расскажите как в Delphi 7 получить в label.caption секунды и минуты.
скажите возможно ли в лабеле получить время в таком формате 22.10.15
(с точками) опишите подробно!
Заранее спасибо.
Расскажите как в Delphi 7 получить в label.caption секунды и минуты.
скажите возможно ли в лабеле получить время в таком формате 22.10.15
(с точками) опишите подробно!
Заранее спасибо.
Цитата: CilCatblack
Вот так:) :
Код:
...
Label1.Caption:=TimeToStr(now);
...
Label1.Caption:=TimeToStr(now);
...
не, мне не это надо, мне чтоб отдельно например секунды . показывало
Почитай про форматы дат в Delphi - их достаточно много. Бери секунды и с помощью таймера постоянно обновляй Label.
В обработчике таймера напейши:
Код:
Label1.Caption := FormatDateTime('hh.nn.ss', Now());
Процедуры ( Label1.Caption:=TimeToStr(now) ) и ( Label1.Caption := FormatDateTime('hh.nn.ss', Now()) ) выводят текущее время.
А как сделать, чтобы время выводилось на час назад или врерёд??
А как сделать, чтобы время выводилось на час назад или врерёд??
А хэлп почитать к дельфе слабо?
В константе HIncrement требуемое количество часов.
Код:
uses DateUtils;
procedure TForm1.Timer1Timer(Sender: TObject);
const
HIncrement = -3;
begin
Label1.Caption := FormatDateTime('hh.nn.ss', IncHour(Now(), HIncrement));
end;
procedure TForm1.Timer1Timer(Sender: TObject);
const
HIncrement = -3;
begin
Label1.Caption := FormatDateTime('hh.nn.ss', IncHour(Now(), HIncrement));
end;
В константе HIncrement требуемое количество часов.