[Ultras]

Добрый вечер гуру ) Помогите решить такую задачу, нормального алгоритма не нашол (не учитывают кол-во дней в месяце и високосный год). Смысл такой, есть кол-во секунд 35475579, нужно получить из них такие дату и время: 08.02.2010 17:19:39. Отсчет начинается с 01.01.2009 00:00:00...Помогите кто может. Заранее спасибо

[lmikle]

Да все просто. Пользуйся тем, что TDateTime есть число с фиксированой точкой, где целая часть - дни, а дробная - время:

Код:

function SecToDate(ASec : Integer) : TDateTime;
const
  SecsInDay = 24 * 60 * 60; // секунд в дне
var
  ZeroDate : TDateTime;
  InDays : Integer;
  ModSecs : Integer;
begin
  ZeroDate := EncodeDate(1,1,2009); // точка отсчета
  InDays := ASec div SecsInDay; // дней в переданных секундах
  ModSecs := ASec mod SecsInDay; // оставшиеся секунды

  // Вычислфем результат
  Result := ZeroDate + InDays + ModSecs / SecsInDay;
end;

[Ultras]

спасибо )) ошибочка есть, заместо EncodeDate(1,1,2009), надо EncodeDate(2009,1,1), и на выходе получаицца: 15.02.2010 14:19:39 (то что 14 часов то ладно, там +3 надо прибавлять, GMT и т.д., а как с датой быть, не знаю).. Ошибочно ((( не могу понять как программа вычисляет другая ((( исходников на неё нету...

Странно, когда делаю так:
d1 := EncodeDateTime(2009,1,1,0,0,0,0);
d2 := EncodeDateTime(2010,2,8,14,19,39,0);
d := DaySpan(d1,d2);
Caption := FloatToStr(d*86400);

получаю 34870778.999999, число меньше чем дано (( ничо не пойму

[lmikle]

Может у тебя данные не правильные. В смысле, кол-во секунд...

[Ultras]

та вот в том то и дело, что правильные ((((( если брать данные за 2009 год, например за февраль, то Ваша функция работает правильно если за 2010, то уже нет ((( и чем больше год и дата, тем на большее кол-во дней ошибка, в перёд... такой ощущение, что не учитываицца 30(31) день в месяце, и високосный год.

[lmikle]

Сейчас проверил. В днях получается 410 дней. Ну хоть ты лопни, хоть тресни - это год и полтора месяца ровно. Т.е. 15 февраля.

Проверь, все-таки исходное кол-во секунд...