Работа с датой делфи

[vladis222]

Здравствуйте,подскажите пожалуйста,есть ли в делфи функция для перевода вещественного числа в дни,часы,минуты,секунды(например,12 .6 начиная с 1 января 2003 года-12 января 2003 года, 14:24:00) ?

[Serge_Bliznykov]

может быть, Вы поконкретней расскажете, что у Вас дано и что Вы хотите получить? и при чём здесь вещественное число? (точнее, что в этом числе находится, число секунд с определённого момента?)

[vladis222]

Временная отметка задана в виде вещественного числа.Целая часть-количество дней,начиная от какой-то даты(любой). Вещественная часть-часть суток,прошедшая после полуночи. Например 12.6 начиная с 1 января 2003 года, это-12 января 2003 года,14:24:00. Посчитать разницу между 2 временными отметками(исходная дата отсчета считается одинаковой). Результат представить в виде числа дней,часов,минут,секунд,которые прошли между этими отметками.
Данные класса : имя класса-CTimestampDiff
Метод для установки исходного данного- SetTimestamp
Метод для gjkextybz исходного данного- GetTimestamp
Имя поля- m_timestamp
Результат : DDD HH:MM:SS
Action метод SubTimestamp(float)
Имена объектов-my_program,standard program.

[GunSmoker]

Стандартный тип даты/времени в Delphi (TDateTime) - ровно то, что вы хотите (целая часть - количество дней, вещественная часть - часть суток).

Таким образом, можно использовать TDateTime и любые функции по работе с ним. Только нужно будет всего-лишь вычитать/прибавлять смещения между 30 декабря 1899 (начало отсчёта TDateTime) и любой другой точкой отсчёта.