|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как перевести значение TDateTime в секунды (Integer)
Суть задачи следующая - нужно узнать сколько прошло времени с последней контрольной точки выполнения программы.
То есть Код:
Var T : TDateTime; T_Past : TDateTime; T:=Now-T_Past Подскажите, как теперь перевести значение переменной Т в секунды (переменную типа Integer). |
#2
|
||||
|
||||
Используй GetTickCount.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
Нет, GetTickCount это не то.
Цитата:
|
#5
|
||||
|
||||
NT_AUTHORITY, MinutesBetween тут не прокатит, т.к. она возвращает целую разницу минут ... а нужно секунды !
AIMor, предлагаю такой код: Код:
uses DateUtils; ... var d1,d2:TDateTime; d:double; begin d1 := EncodeDateTime(2009, 08, 10, 21, 06, 0, 1); // первая дата d2 := EncodeDateTime(2009, 08, 10, 21, 06, 07, 0); // вторая дата d:=DaySpan(d1,d2); считаем дробную разницу в днях ShowMessage(FloatToStr(d*86400));// умножаем на кол-во секунд в дне Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|