Отправлено :) 31 мая 2004 г. 18:07 В ответ на: Т.к. API в железе cвое, функций работы с датами нет, пишутся свои функции (+) отправлено Sot 31 мая 2004 г. 17:46

проверял так:
procedure TForm1.Button1Click(Sender: TObject);
var
d:TDateTime;
begin
d:=EncodeDate(1996,1,1)+ EncodeTime(18,0,0,0);
Edit2.Text:=floattostr(d);
Edit3.Text:= DateTimeToStr(d);
Edit4.Text:= DateTimeToStr(35065.75);//Для окончательной проверки
end;

В Edit4 получается 01.01.1996 18:00:00 так что проверенно.

• Спасибо, значит у меня ошибка, пойду искать — Sot   (31.05.2004 18:09, пустое)