VPF::Узнать время с точностью до мс

fara

Дата 14.1.2006, 13:55 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 15.3.2004
Где: С.-Петербург

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

В PHP есть ф-ия microtime():

Цитата

mixed microtime ( [bool get_as_float] )

Функция microtime() возвращает текущую метку времени с микросекундами. Эта функция доступна только на операционных системах, в которых есть системная функция gettimeofday().

При вызове без необязательного параметра, возвращается строка в формате "msec sec", где sec - это количество секунд, прошедших с начала Эпохи Unix (The Unix Epoch, 1 января 1970, 00:00:00 GMT), а msec - это дробная часть.

mixed microtime ( [bool get_as_float] )

microtime() returns the current Unix timestamp with microseconds. This function is only available on operating systems that support the gettimeofday() system call.

When called without the optional argument, this function returns the string "msec sec" where sec is the current time measured in the number of seconds since the Unix Epoch (0:00:00 January 1, 1970 GMT), and msec is the microseconds part. Both portions of the string are returned in units of seconds.

Вот пример:

Цитата

0.57896400 1137236007

Есть ли что-то подобное в Delphi? Я так думаю что ессно есть. Просто я не знаю эту ф-ию. Подскажите пжл

Это сообщение отредактировал(а) fara - 14.1.2006, 13:57

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

Крыша хлопает в ладоши -Спасибо всем за план хороший!

DemoCode

Дата 14.1.2006, 13:57 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Остаётся лишь вычислить количество мллисекунд

Это сообщение отредактировал(а) DemoCode - 14.1.2006, 13:59

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

Жить стало лучше, жить стало веселей
© И.В. Сталин

fara

Дата 14.1.2006, 14:00 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 15.3.2004
Где: С.-Петербург

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

Мне неважно, чтобы ф-ия возвращала результат именно в таком формате, важен факт есть ли в Дельфи
ф-ия которая сможет подсчитать:
1. количество секунд, прошедших с начала Эпохи Unix (The Unix Epoch, 1 января 1970, 00:00:00 GMT)
2. кол-во миллисекунд
Добавлено @ 14:01
DemoCode
Я не знаю как вычислить кол-во миллисекунд smile

Добавлено @ 14:13
DemoCode
Я сейчас плохо соображаю, подскажи пожалуйста, как получить кол-во секунд прошедших с 1 января 2006 года например, используя ф-ию которую ты привел.

Это сообщение отредактировал(а) fara - 14.1.2006, 14:01

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

Крыша хлопает в ладоши -Спасибо всем за план хороший!

Albinos_x

Дата 14.1.2006, 14:15 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата(fara @ 14.1.2006, 14:00

)

Я не знаю как вычислить кол-во миллисекунд

Код


mili:=((Hour*60*60)+ (Min*60)+ Sec)*100+ MSec;

или так:

Код


mili:=trunc(Tim/EncodeTime(0,0,0,1));

Добавлено @ 14:23

Цитата(fara @ 14.1.2006, 14:00

)

Я сейчас плохо соображаю, подскажи пожалуйста, как получить кол-во секунд прошедших с 1 января 2006 года например, используя ф-ию

Код


Ish:=StrToDate('1.01.2006');
Ran:=Time-Ish;
mili:=Trunc(Ran/EncodeTime(0,0,0,1));

Это сообщение отредактировал(а) Albinos_x - 14.1.2006, 14:29

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

fara

Дата 14.1.2006, 14:42 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 15.3.2004
Где: С.-Петербург

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

Albinos_x
var Ish, Time, Ran : TDateTime (?);
var mili : (?)

Что находится в переменной Time? Или точнее как она получает значение?

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

Крыша хлопает в ладоши -Спасибо всем за план хороший!

DemoCode

Дата 14.1.2006, 14:48 (ссылка)

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

Загрузка ...

Опытный

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

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

Time - это функция а не переменная

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

Guedda

Дата 14.1.2006, 15:27 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Код немного не доработан, так как будет абракадабра.
Вот полностью рабочий код:

Код


var
  Ish, Ran, u : TDateTime;
  Mili : LongInt;
begin
  u := Now;
  Ish:=StrToDate('1.01.2006');    
  Ran:=u-Ish;    
  mili:=Trunc(Ran/EncodeTime(0,0,0,1));
end;

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

Ll 2

fara

Дата 14.1.2006, 15:28 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 15.3.2004
Где: С.-Петербург

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

Уважаемые DemoCode, Albinos_x и Guedda, огромное вам спасибо!
Все получилось smile

Это сообщение отредактировал(а) fara - 14.1.2006, 15:29

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

Крыша хлопает в ладоши -Спасибо всем за план хороший!

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