Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

как из кол. секунд (integer) ;получить время (TTime) [D5]

SONY © (2002-04-23 14:53:00)
нужно например 125 секунд преобразовать в вид 00:02:05

troits (2002-04-23 15:26:00) [1]
В хэлпе бывают ошибки - некоторые примеры просто не компилируются.

Еще один способ преобразования (конечно, не самый оптимальный по скорости):

TimeStampToDateTime(MSecsToTimeStamp(125 * 1000))

SONY (2002-04-23 15:17:00) [2]
ок
HELP
nn Displays the minute with a leading zero (00-59).

troits (2002-04-23 15:16:00) [3]
попробуй
Caption := FormatDateTime("nn:ss",Now);

SONY (2002-04-23 15:15:00) [4]
а в справке так

The following example assigns "The meeting is on Wednesday, February 15, 1995 at 10:30 AM" to the string variable S.

S := FormatDateTime(""The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM",

StrToDateTime("2/15/95 10:30am"));

Anatoly Podgoretsky (2002-04-23 15:11:00) [5]
Я вас всех дополню, формат .mm. не может быть правильным, зачем нужен месяц во времени :-)

Johnmen (2002-04-23 15:08:00) [6]
mm воспринимается как месяц...

SONY (2002-04-23 15:05:00) [7]
а еще почему когда пишу так Caption := FormatDateTime("hh:mm:ss",Now); то все правильно а когда Caption := FormatDateTime("mm:ss",Now); пишет не правильно

Johnmen (2002-04-23 15:05:00) [8]
В добавление к Anatoly Podgoretsky © (23.04.02 14:57) :

FormatDateTime("hh:mm:ss",Sec/86400)

Anatoly Podgoretsky (2002-04-23 14:57:00) [9]
Sec/86400

troits (2002-04-23 14:56:00) [10]
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function DateTimeToStr(DateTime: TDateTime): string;

Наверх

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