Axolot Data

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var nVal : Currency;
    XLS : TXLSReadWriteII5;
begin
    XLS := TXLSReadWriteII5.Create(nil);
    try

       XLS[0].AsFloat[ 0, 1 ] := 500;    // A2
       XLS[0].AsFloat[ 0, 2 ] := 0.0083; // A3
       XLS[0].AsFloat[ 0, 3 ] := 20;     // A4
       // XLS[0].AsFormula[ 0, 4 ] := 'SUM( A2:A4 )';                    // <<<<<< NO ERROR
       XLS[0].AsFormula[ 0, 4 ] := 'VA( A3/12; 12*A4; A2; ; 0)';    // <<<<<< ERROR !
       XLS.Calculate;

       nVal := XLS[0].AsFloat[ 0, 4 ];

       ShowMessage( FormatCurr( '#,##0.00;-#,##0.00;#', nVal ) );

       xls.Filename := 'C:\Test.xlsx';
       xls.Write;

    finally
       FreeAndNil(XLS);
    end;
end;