Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
Внизкак из кол. секунд (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 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c