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.
Может там откуда берешь секунды вычисляется по другому а не просто разница ?