怎么把paradox表中的timestamp类型的字段(包括date,time)，分别提出date,time?

Question

var
  a: TDatetime; // Date
  b: TDatetime; // Timea := Trunc(yourtimestamp);
b := yourtimestamp - a;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  Present，a,b: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= yourtimestamp;
  DecodeDate(Present, Year, Month, Day);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  a：=EncodeTime(Hour, Min, Sec, MSec);
  b:=encodedate(Year, Month, Day);
  end;