VPF::как получить часы,минуты или секунды

Vit

Дата 10.1.2005, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Нет дорогой, никаких там if на фиг не надо! - запаришься просчитывать комбинации одно и двух значных часов, минут и секунд

Код


procedure TForm1.Timer1Timer(Sender: TObject);
var t:TDateTime;
begin
  t:=now;
  Label1.Caption := Format('%.2d:%.2d:%.2d',[trunc(frac(t)*24),trunc(frac(t*24)*60),trunc(frac(t*24*60)*60)]);
end;

Это сообщение отредактировал(а) Vit - 10.1.2005, 17:38

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

NiJazz

Дата 10.1.2005, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Vit
Я не знал, что есть в Delphi функция format. Пробовал делать через wsprintf - не получилось, ограничения языка не позволили. Поэтому ляпял через if.
Добавлено @ 17:43
Хотя на самом деле знал, просто не пользовался ни разу, поэтому не вспомнил.

Vit

Дата 10.1.2005, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

--------------------

Mysterious-girl

Дата 10.1.2005, 23:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите решить задачку плиззззззз smile

Дано количество секунд с начала суток. Вычислить текущее время.

Вход
В первой строке входа дано количество секунд с начала суток (целое число).

Выход
В первую строку вывода напечатать текущее время в виде: ЧЧ ММ СС, где 0<=ЧЧ<=23, 0<=ММ<=59, 0<=CC<=59.

Jey_k

Дата 11.1.2005, 00:33 (ссылка)

(нет голосов)

Загрузка ...

WEB-командир

Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: 1
Всего: 61

Может не в точности то, но думаю автору топика интересно будет вот это

Это сообщение отредактировал(а) Jey_k - 11.1.2005, 00:34

--------------------

Проверка IP

user posted image

Vit

Дата 11.1.2005, 01:44 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

t:количество секунд

тогда время будет:

Код


showmessage(Format('%.2d:%.2d:%.2d',[t div 3600, (t mod 3600) div 60, (t mod 3600) mod 60]));

--------------------

In0stRAnez

Дата 30.3.2008, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 85
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

В догонку на эту тему, если возможно скажите возможно ли в лабеле получить время в таком формате 22.10.15

VICTAR

Дата 30.3.2008, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := FormatDateTime('hh.nn.ss', Time);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »