Преобразование time() в DateTime

[SuperPuperLesha]

Подскажите как мне преобразовать значение функции

time() сейчас примерно = "1294836377" из PHP

в

Delphi TDateTime сейчас примерно = "40555,6026616667"

Есть функция unix_time_to_win_time описаная на сайте php.net которая отдаёт странное значение "1.2939313738E+17"

[Veseloff]

А что именно означает в дельфи это число? В PHP, например, это количество секунд, прошедшее с 01.01.1970 00:00:00.

[SuperPuperLesha]

А что именно означает в дельфи это число? В PHP, например, это количество секунд, прошедшее с 01.01.1970 00:00:00.

TDateTime сохраняется как переменная Double,

с датой как целая часть, а время как дробная.

Дата сохраняется как число дней с 30 декабря 1899.

Не понятно, почему не 31 декабря.

01 января 1900 имеет значение 2.

[LunatiK]

а в дельфе оно должно быть: число дней с 30 декабря 1899. (соответственно с ноля часов ноля минут)

Вот и пересчитывайте либо то что в php в дни, либо то что в дельфе в секунды с учётом разницы в двое суток + 70 лет

А лучше в формате даты переносить и не замарачиваться, а уж преобразовать из строки даты 12/01/2011 это и php и дельфи может

[SuperPuperLesha]

Да Я так и предполагал сделать, но надеялся что есть функции уже написанные для этого.