кол-во миллисекунд начиная с 1970 года

← →
Анна (2003-12-13 16:21) [0]

Напомните, пожалуйста, функцию, возвращающую кол-во милисекунд, прошедших с 1970-го года

← →
Zilog_ © (2003-12-13 16:56) [1]

Функция time():TDateTime
Успехов

← →
Юрий Федоров © (2003-12-13 17:04) [2]

The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is fraction of a 24 hour day that has elapsed.

← →
Ihor Osov'yak © (2003-12-13 17:07) [3]

2 Анна
http://www.bsdg.org/swag/DELPHI/0170.PAS.html случаем не подойдет? Правда, там в сек., но думаю на 1000 умножить не проблема будет, перед округлением..
А стандартная такая в жаве есть, кажется - Date.parse

2 [1] Zilog_ © (13.12.03 16:56)

Во первых, в днях, во вторых - "since 12/30/1899"

← →
Анна (2003-12-13 17:25) [4]

а стандартного в Delphi ничего нет?

может это подойдет? Почти стандартное :-)

uses DateUtils;
....
const
UnixStartDate : tdatetime = 719163.0
...
MilliSecondSpan(Now, UnixStartDate);

Trunc((Now - 25569) * 86400000);

кол-во миллисекунд начиная с 1970 года Найти похожие ветки