Re: Дельта между ISC_DATE и дельфийским TTimeStamp

Wed, 25 Mar 2009 11:14:48 -0700 


PS. Вот кусок кода в качестве рыбы.

procedure TForm1.FormCreate(Sender: TObject);
var ts: TTimeStamp; //record
    dt: TDateTime;  //double
    i: integer;
begin
   dt:= EncodeDate(2009,2,21); // 21.02.2009
   ts:= DateTimeToTimeStamp(dt);
   Memo1.Lines.Append(' iDT    iTS  TDateTime  TTimeStamp');
   Memo1.Lines.Append('----- ------ ---------- ----------');
   for i:= 1 to 20 do begin
      Memo1.Lines.Append(
         IntToStr(Trunc(dt))+' '+IntToStr(ts.Date)+' '+
         DateToStr(dt)+' '+DateToStr(TimeStampToDateTime(ts)));
      // Увеличиваем внутреннее представление даты на 1
      dt:= dt + 1;
      ts.Date:= ts.Date + 1;
   end;//for
end;(*FormCreate*)

Ответить