Public Sub <\/span>TestDouble()\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>dblSumme As Double<\/span>\r\n For i = 1 To 1000\r\n dblSumme = dblSumme + 0.1\r\n Next<\/span> i\r\n Debug.Print<\/span> dblSumme\r\nEnd Sub<\/span><\/pre>\nDas Ergebnis lautet nicht 100<\/b>, wie man erwarten könnte, sondern 99,9999999999986<\/b>.<\/p>\n
Wenn wir die gleiche Prozedur mit dem Datentyp Currency <\/b>durchführen, der Festkommazahlen mit vier Nachkommastellen speichert, erhalten wir das korrekte Ergebnis, nämlich 100:<\/p>\nPublic Sub <\/span>TestCurrency()\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>curSumme As Currency<\/span>\r\n For i = 1 To 1000\r\n curSumme = curSumme + 0.1\r\n Next<\/span> i\r\n Debug.Print<\/span> curSumme\r\nEnd Sub<\/span><\/pre>\nBeim Rechnen mit Geldbeträgen und Prozentzahlen sollten hier keine Ungenauigkeiten auftreten, daher wählen wir nachfolgend keinen Fließkomma-Datentyp zum Speichern von Prozentzahlen.<\/p>\n
Datentyp für Prozentzahlen<\/h2>\n
Legen wir nun eine Beispieltabelle an, die Artikel speichern soll – samt Nettopreis und Mehrwertsteuersatz und dem Bruttopreis als berechnetes Feld.<\/p>\n
Der Entwurf der Tabelle sieht wie in Bild 1 aus. Das Feld Mehrwertsteuersatz <\/b>haben wir als Feld mit ganzen Zahlen ausgelegt – mit der Idee, den Prozentsatz als ganze Zahlen einzugeben.<\/p>\n
![\"Erster](\"..\/tl_files\/images\/pic_469_001.png\")
<\/a><\/p>\nBild 1: Erster Versuch eines Feldes für Prozentzahlen<\/p>\n
Zur Berechnung des Bruttopreises und gleichzeitig zur überprüfung, welche Werte sich tatsächlich im Feld Mehrwertsteuersatz <\/b>befinden, geben wir für das Feld Bruttopreis <\/b>die folgende Formel für die Eigenschaft Ausdruck <\/b>ein:<\/p>\n[Nettopreis]*(1+[Mehrwertsteuersatz]\/100)<\/pre>\nIn der Datenblattansicht wird allerdings noch kein Prozentzeichen angezeigt (siehe Bild 2).<\/p>\n
![\"Die](\"..\/tl_files\/images\/pic_469_002.png\")
<\/a><\/p>\nBild 2: Die Berechnung gelingt, aber wir sehen kein Prozentzeichen.<\/p>\n
Das ändern wir zunächst, indem wir wieder in die Entwurfsansicht wechseln und die Eigenschaft Format <\/b>des Feldes Mehrwertsteuersatz <\/b>auf Prozentzahl <\/b>einstellen. Das führt zwar dazu, dass nun ein Prozentzeichen angezeigt wird – aber dafür wird der im Feld enthaltene Wert nun auch mit 100 multipliziert (siehe Bild 3).<\/p>\n
![\"Das](\"..\/tl_files\/images\/pic_469_003.png\")
<\/a><\/p>\nBild 3: Das Prozentzeichen ist nun da, allerdings wird der Wert mit 100 multipliziert.<\/p>\n
Und wenn man nun den Wert 19 <\/b>eingibt, um einen Mehrwertsteuersatz von 19% festzulegen, wird nach Abschluss der Eingabe der Wert 0,00%<\/b> angezeigt. Werte über 50 werden als 100% <\/b>angezeigt, Werte unter 50 als 0,00%<\/b>. Der Wert 1900 <\/b>wird wiederum als 1900% <\/b>angezeigt. Wir haben hier ein Integer-Feld gewählt zur Eingabe von Prozentzahlen, wobei durch die Formatierung als Prozentzahl die Werte durch 100 dividiert und erst dann gespeichert werden. Die Eingabe von 19 etwa wird dann zu 0,19, was in einem Feld mit ganzen Zahlen durch Abschneiden der Nachkommastellen zu 0 wird.<\/p>\n
Also benötigen wir zumindest einen Zahlentyp, der Nachkommastellen enthält. Die Fließkommazahlen sind in bestimmten Situationen ungenau, also verwenden wir den Datentyp Währung<\/b>! Dies ist der einzige auswählbare Datentyp, der Festkommazahlen erlaubt.<\/p>\n
Dadurch wird zunächst auch die Eigenschaft Format <\/b>geändert, und zwar in Währung<\/b>. Dies ändern wir wieder in Prozentzahl<\/b>.<\/p>\n
Wenn wir dann wieder in die Datenblattansicht wechseln, werden wieder die gleichen Werte wie zuvor im Feld Mehrwertsteuersatz <\/b>angezeigt – also beispielsweise 1900%<\/b>.<\/p>\n
Geben wir allerdings nun den Wert 19 <\/b>ein, dann erscheint anschließend der Wert 19%<\/b>. Das ist schon mal eine Verbesserung (siehe Bild 4)!<\/p>\n
![\"Die](\"..\/tl_files\/images\/pic_469_004.png\")
<\/a><\/p>\nBild 4: Die Prozente können nun direkt eingegeben werden, aber die Berechnungsformel stimmt nicht mehr.<\/p>\n
Wenn wir dann allerdings auf das Feld Bruttopreis <\/b>schauen, sehen wir, dass die Formel für direkt eingegebene Mehrwertsteuersätze offensichtlich nicht mehr stimmt: Statt beim Nettopreis 20 € <\/b>und dem Mehrwertsteuersatz 19% <\/b>den Bruttopreis 23,80 € <\/b>auszugeben, erscheint hier 20,038 <\/b>als Ergebnis.<\/p>\n
Die Prozentzahl, die wir als 19 <\/b>eingegeben haben, wird also offensichtlich intern als 0,19 <\/b>gespeichert. Das können wir uns auch durch Ermittlung des Zahlenwertes per DLookup<\/b>-Funktion ansehen:<\/p>\n DLookup(\"Mehrwertsteuersatz\", \"tblArtikel\", \"ID = 2\")\r\n 0,19 <\/pre>\nNach dieser Bestätigung brauchen wir also nur die Formeln des berechneten Feldes Bruttopreis <\/b>wie folgt anzupassen:<\/p>\n[Nettopreis]*(1+[Mehrwertsteuersatz])<\/pre>\nDie Anpassung sehen Sie auch in Bild 5.<\/p>\n
![\"Anpassung](\"..\/tl_files\/images\/pic_469_005.png\")
<\/a><\/p>\nBild 5: Anpassung der Formel für das berechnete Feld zur Ermittlung der Bruttopreise<\/p>\n
Wechseln wir nochmals in die Datenblattansicht, finden wir nach Anpassung der zuvor eingegebenen Mehrwertsteuersätze auf jeweils ein Hundertstel des vorherigen Wertes die korrekten Werte für Mehrwertsteuersatz und Bruttopreise vor (siehe Bild 6).<\/p>\n