Berechnung Einzelposten (Unit-Price, Net-Price)

**Harry Stahl**

Was ist eigentlich bei der Berechnung des Einzelposten für Unit-Price und Net-Price (E-Rechnung) der richtige Variablentyp?

Sollte man hier Float oder Currency verwenden?

Je nach dem, gibt es unterschiedliche Ergebnisse für die Berechnung bei Eingabe eines Bruttopreises und der Berechnung des Nettos daraus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Tfrm_Main.Button2Click(Sender: TObject);

var

  BruttoD: Double;

  NettoD: Double;

  BruttoC: Currency;

  NettoC: Currency;

begin

  // Mit Double

  BruttoD := 9.99;

  NettoD := BruttoD / 1.19;

  ShowMessage('Double: ' + FormatFloat('0.00', NettoD));  // Ausgabe: 8.39

  // Mit Currency

  BruttoC := 9.99;

  NettoC := BruttoC / (1 + (19 / 100));

  ShowMessage('Currency: ' + FormatFloat('0.00', NettoC));  // Ausgabe: 8.40

end;

Also einmal 8.39 für Net-Price, das andere mal 8.40.

Wenn man Currency verwendet und somit 8.40 ergibt sich hier z.B. bei der Seite PDF-Tools24 das Ergebnis wie anliegend angezeigt.

Also aus dem 9,99 Brutto wird 10,00 Brutto.

Anmerkung: Wenn ich in der Eingabemaske zunächst die 8,39 für den Unit-Price eingebe, dann erhalte ich wie bei mir 9,98 Brutto und das gesammte Rechenergebnis (also mit der Netto-Methode) ist identisch, wie bei mir.

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Zur Linear-Darstellung wechseln Zur Hybrid-Darstellung wechseln Baum-Darstellung

Berechnung Einzelposten (Unit-Price, Net-Price)

Berechnung Einzelposten (Unit-Price, Net-Price)

Forumregeln