Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Summe bilden
Autor: AG
Datum: 29.01.08 18:39
Hallo, ich habe folgendes Problem: Ich möchte alle Beträge einzelner Spalten (hier 3 bis 8) eines ListView's aufaddieren und dann die Summe in ein Datenfeld speichern. Die zu summierenden Beträge sind alles Zahlen mit zwei Nachkommastellen. In wenigen Einzelfällen kommt es jetzt vor, wenn sehr viele Beträge addiert werden müssen, dass das Ergebnis Summe(sp) nicht zwei Nachkommerstellen hat, sondern z.b 78,0000000000001 lautet. Habe ich mit Double einen falschen Datenty gewählt?? Dim sp As Integer, ind As Integer Dim itemX As ListItem Dim Summe() As Double For sp = 3 To 8 ind = 1 Summe(sp) = 0 While ind < lvw.ListItems.Count + 1 Set itemX = lvw.ListItems(ind) If itemX.SubItems(sp) <> "" Then Summe(sp) = Summe(sp) + CDbl(itemX.SubItems(sp)) End If ind = ind + 1 Wend Next Grüße AG

Summe bilden	693	AG	29.01.08 18:39
Re: Summe bilden	390	Dominik S.	29.01.08 21:21

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen