Hallo ,

ich habe folgendes:

markieren

Delphi-Quellcode:

//...
 
  Sheet.Cells[1, 1] := Query1.FieldByName('feld1').asFloat;

//...

Wenn in feld1 der Wert 2123,40 steht, erhalte ich im Sheet 2123,4
Ich hätte aber gerne 2.123,40 drin stehen. Natürlich nicht im Textformat,
sondern im Zahlenformat. Ich muss in Excel damit rechnen können.

Kann jemand einen Tipp geben ?

Gouston

vielleicht so
Sheet.Cells[1, 1] := Query1.FieldByName('feld1').AsInteger;

nee...geht nicht.
Das Feld in der Datenbank ist Number mit Nachkommastellen...also Float für Delphi.

Hallo Gouston,

du musst vorher die Formatierung der Zelle in Excel ändern.
Also zuerst die gewünschte Zeile selektieren:

z.B.: Range("A3").Select

Und danach die Formatierung anpassen:
Selection.NumberFormat = "0.00"

Ciao Peter

Hallo Peter,

danke für den Tip !

So geht's :

zusammenfalten · markieren

Delphi-Quellcode:

var
 vBetrag : extended;
begin
// ...
 DecimalSeparator := '.';
 ThousandSeparator := ',';

 vBetrag := Query1.GetField('feld1');
 Sheet.Cells[1,1].select;
 Excel.Selection.NumberFormat := '#.##0,00';
 Sheet.Cells[1,1].FormulaR1C1 := vPBetrag;
//...

Gouston