Скачать: CL | DM;

как из кол. секунд (integer) получить время (TTime)   Найти похожие ветки 

← →
SONY   (2002-04-23 14:53) [0]

нужно например 125 секунд преобразовать в вид 00:02:05

---

← →
troits ©   (2002-04-23 14:56) [1]

function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function DateTimeToStr(DateTime: TDateTime): string;

---

← →
Anatoly Podgoretsky ©   (2002-04-23 14:57) [2]

Sec/86400

---

← →
SONY   (2002-04-23 15:05) [3]

а еще почему когда пишу так Caption := FormatDateTime("hh:mm:ss",Now); то все правильно а когда Caption := FormatDateTime("mm:ss",Now); пишет не правильно

---

← →
Johnmen ©   (2002-04-23 15:05) [4]

В добавление к Anatoly Podgoretsky © (23.04.02 14:57) :

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

---

← →
Johnmen ©   (2002-04-23 15:08) [5]

mm воспринимается как месяц...

---

← →
Anatoly Podgoretsky ©   (2002-04-23 15:11) [6]

Я вас всех дополню, формат .mm. не может быть правильным, зачем нужен месяц во времени :-)

---

← →
SONY   (2002-04-23 15:15) [7]

а в справке так

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"));

---

← →
troits ©   (2002-04-23 15:16) [8]

попробуй
Caption := FormatDateTime("nn:ss",Now);

---

← →
SONY   (2002-04-23 15:17) [9]

ок
HELP
nn Displays the minute with a leading zero (00-59).

---

← →
troits ©   (2002-04-23 15:26) [10]

В хэлпе бывают ошибки - некоторые примеры просто не компилируются.

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

TimeStampToDateTime(MSecsToTimeStamp(125 * 1000))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.991 c