Axolot Data

Code: Select all

procedure TForm1.Button_ExportClick(Sender: TObject);
var
  d1, d2: TDate;
begin
  d1:=Now;
  d2:=EncodeDate(2000, 1, 1);
  XLSReadWriteII51.FileName:='C:\xls_date.xlsx';
  XLSReadWriteII51.Sheets[0].AsDateTime[0, 1]:=d1;
  XLSReadWriteII51.Sheets[0].AsDateTime[0, 2]:=d2;
  XLSReadWriteII51.Write;
end;

procedure TForm1.Button_ImportClick(Sender: TObject);
var
  date_1, date_2: String;
begin
  XLSReadWriteII51.FileName:='C:\xls_date.xlsx';
  XLSReadWriteII51.Read;
  date_1:=XLSReadWriteII51.Sheets[0].AsString[0, 1];
  date_2:=XLSReadWriteII51.Sheets[0].AsString[0, 2];
end;