Показать сообщение отдельно
  #10  
Старый 16.02.2010, 09:45
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Ultras
А Ты уверен, что 35475579 соответствует 08.02.2010 17:19:39.

Провел эксперимент:
Код:
function SecToDate(ASec : Integer) : TDateTime;
begin
  Result := EncodeDate(2009,1,1) + (ASec / SecsPerDay);
end;

procedure TForm1.btDateClick(Sender: TObject);
var
  i: Integer;
  tmpDt: TDateTime;
begin
  for i := 0 to 1000 do
  begin
    tmpDt := SecToDate(i * SecsPerDay);
    if DayOfTheMonth(tmpDt) = 1 then
      memo1.Lines.Add('');
    Memo1.Lines.Add(DateTimeToStr(tmpDt) + ' - ' + IntToStr(i * SecsPerDay));
  end;
end;
Вывелся "календарь" на 1000 дней - где надо 31 где надо 28. и твое число попадает в 15.02.2010.

Может там откуда берешь секунды вычисляется по другому а не просто разница ?
Ответить с цитированием