unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ComObj, OleServer, Dialogs, ExcelXP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




//---------------------------------------------------------------------
Procedure PutListDataToExcel;
var
  sh : variant;
  value, v : variant;
  MyExcel : variant;
  ea1 : TExcelApplication;

Begin
  ea1 := TExcelApplication.create(Nil);

  ea1.Connect;
  MyExcel := GetActiveOleObject('Excel.Application');
  MyExcel.Workbooks.Add;
  MyExcel.Sheets[1].Select;

  sh:=MyExcel.Sheets[1];
  value  := VarArrayCreate([0, 0, 0, 1], varVariant);

  value[0, 0] := now;
  v := now;
  value[0, 1] := v;

  MyExcel.Range[sh.Cells[1,1],sh.Cells[1,2]].select;
  MyExcel.Selection := value;

  MyExcel.Visible:=true;
  ea1.Disconnect;
  MyExcel:=UnAssigned;
  ea1.free;

End;

//---------------------------------------------------------------------
//---------------------------------------------------------------------


procedure TForm1.Button1Click(Sender: TObject);
begin
  PutListDataToExcel;
end;

end.

  MyExcel.Selection.NumberFormat := 'ДД.ММ.ГГГГ ч:мм';

Sub Макрос1()

    Dim A(3, 1) As Variant
    
    A(0, 0) = Date
    A(1, 0) = Time
    A(2, 0) = Now
    Range("a1:a3") = A
    
End Sub

Sub Ìàêðîñ1()

    Dim A(3, 1) As Variant
    
    A(0, 0) = Date
    A(1, 0) = Time
    A(2, 0) = Now
    Range("a1:a3") = A
    A(0, 0) = VarType(A(0, 0)) '==> 7 (vbDate)
    A(1, 0) = VarType(A(1, 0)) '==> 7 (vbDate)
    A(2, 0) = VarType(A(2, 0)) '==> 7 (vbDate)
    Range("b1:b3") = A
    
    
    
End Sub

Sub a1()
    Dim A(3, 1) As Variant
    
    A(0, 0) = Date
    A(1, 0) = Time
    A(2, 0) = Now
    Range("a1:a3") = A
    
    A(0, 0) = VarType(A(0, 0))
    A(1, 0) = VarType(A(1, 0))
    A(2, 0) = VarType(A(2, 0))
    Range("b1:b3") = A
    
    Range("c1") = Date
    Range("c2") = Time
    Range("c3") = Now
End Sub