Frage Hallo, in verschiedenen Formularen setze ich unter VBA die "Round"-Funktion ein, beispielse um Währungsbeträge nach prozentualem Abzug zu erhalten. Nun habe ich festgestellt, dass Beträge bei einer nachfolgenden "5" abgerundet anstatt aufgerundet werden. Dies entspricht nicht dem "Kaufmännischen Runden". Beispiel: round ("11, 745", 2) ergibt "11, 74" anstatt "11, 75" Wie kann ich dies korrigieren? Aufrunden in ACCESS - MS-Office-Forum. Danke für Eure Hilfe... Gruß Roland Antworten Hallo, Roland, Roland Klassen: siehe FAQ 2. 1, Runden: Gruß - Mark Als Antwort markiert Mittwoch, 1. Dezember 2010 17:50
Sep 2005, 16:31 Rufname: Hi Leute, Ich hab hier mal die Suchfunktion genutzt, denn ich suche eine Lsung, wie ich in Access aufrunden kann... Leider hat mir kein Beitrag weitergeholfen, langsam aber sicher bin ich am verzweifeln... Also, ich habe folgende Formel, die ich auf die nchste ganze Zahl aufrunden mchte: [sato-cnt-calc]/4. 33/7*8/1. 8*1. 6/10 Wie kann ich diese nun aufrunden mit Access2003?? Das: Aufrunden([sato-cnt-calc]/4. Zahlen in Abfragen aufrunden - - - - - - - - Office-Loesung.de. 6/10;0), funktioniert nicht... Wer kann mir weiterhelfen?? Liebe Grsse Jenny Willi Wipp Moderator Verfasst am: 13. Sep 2005, 16:47 Rufname: Wohnort: Raum Wiesbaden Hi Jennyfer Angel, lange kannst Du aber nicht gesucht haben Wie waere es denn in einem Modul z. B. modFndAufrunden mit Code: Public Function FndAufrunden(dZahl As Double) As Double FndAufrunden# = Int(Abs(dZahl#) * -1) * Sgn(dZahl#) * -1 End Function aus dem Thema Aufrunden In der Abfrage dann Code: AufgerundeterWert: FndAufrunden([sato-cnt-calc]/4. 6/10) Siehe auch Re: Wenn -Dann -Funktionen (III) _________________ Eine kurze Rueckmeldung waere nett SL Willi Wipp ( Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden) Zuletzt bearbeitet von Willi Wipp am 13.
Problem Beim der Eingabe von krummen Zeiten wie 9:07 Uhr soll auf volle 15 Minuten gerundet werden? Lösung Geben Sie in einem globalen Modul zunächst die folgende Funktion ein: Function ZeitRunden(varZeit, varRundenAuf) As Date Dim hh As Integer, nn As Integer Dim strZeit As String strZeit = Format$(varZeit, "hh:nn") hh = Val(Left$(strZeit, 2)) nn = Val(Mid$(strZeit, 4, 2)) ZeitRunden = Format(TimeSerial( _ hh, _ Int(nn / varRundenAuf + 0. 5) _ * varRundenAuf, _ 0), "hh:nn") End Function Die Einstellung für Ihr Feld "Startzeit" ändern Sie dann auf folgenden Ausdruck: =ZeitRunden(Jetzt();15) =ZeitRunden(Jetzt();10) -> 00, 10, 20, 30, 40, 50 =ZeitRunden(Jetzt();30) -> 00, 30
Im Finanzsektor wird alles sehr genau genommen. Wird über kleinere Rundungsfehler an anderer Stelle gern einmal hinweggesehen, so sind hier Inkonsistenzen in der Regel absolut inakzeptabel. Einzelne Cent-Beträge können sich über Millionen von Datensätzen zu größeren Summen aufaddieren. Wohin Sie genau schauen müssen, um solche Umstände zu vermeiden, untersuchen die folgenden Ausführungen. Beispieldatenbank Die Beispiele dieses Artikels finden Sie in der Datenbank Geldbeträge im Tabellenentwurf Für Zahlen mit Nachkommastellen kommen unter Access im Prinzip vier Datentypen infrage: Single, Double, Currency und Decimal, also Fließkommazahl einfacher und doppelter Genauigkeit, sowie Währungs- und Dezimaltyp. Rechenergebnis zwingend "Abrunden" oder "Aufrunden". Single scheidet wegen der geringen Genauigkeit aus. Hier werden zur Speicherung nur vier Bytes verwendet, während der Double -Typ acht Bytes benötigt. Wie groß der Unterschied letztlich ist, können Sie mit einem kleinen Test im VBA-Direktfenster ermitteln. Lassen Sie sich die Ergebnisse dieser beiden Zeilen ausgeben: CSng (Now) CDbl (Now) Die Funktion Now gibt das aktuelle Datum samt Uhrzeit aus, wobei diesem Date -Typ tatsächlich ein Double -Wert unterliegt.
An Josef: Ja es ist ein Export am EXCEL und EXCEL macht daraus wieder eine Zahl. um das zuverhindern müsste ich vor den Wert bzw. die Zahl noch ein ' setzen dann würde EXCEL es als Text darstellen. Nochmals herzlichen Dank und noch einen schönen Feiertag. Hallo in meiner Doc s. Fusszeile unten rechts auf Seite 175 hab ich was zu Runden 10. 17. 36 Runden (Fünfer-, Kaufmännische- etc. ) und 10. 37 Runden auf x Nachkommastellen möglich das dass was für Dich ist Thema: Runden in der Abfrage Runden in der Abfrage - Similar Threads - Runden Abfrage #Wert! in Microsoft Excel Hilfe #Wert! : Hallo, ich bekomme immer den Fehler #Wert! beim kopieren der Formel angezeigt. In Zelle a2 Betrag einer Rechnung, Zelle c2 70% aus a2, bei 0 Zelle leer und gleichzeitig soll das Ergebnis auf 2... Mathematisches Runden (Banker's Rounding) ohne VBA in Microsoft Excel Tutorials Mathematisches Runden (Banker's Rounding) ohne VBA: im Gegensatz zum normalen "kaufmännischen Runden": =WENN(ISTGERADE(A1/1%)*(REST(A1/1%;1)<=0, 5);ABRUNDEN(A1;2);RUNDEN(A1;2)) Quelle, abgewandelt auf Cent: Banker's rounding formula in Excel Am...
_________________ Gru Klaus..... Feedback wre wnschenswert. Ich mchte bitte keine unaufgeforderten PN. Fragen bitte im Forum. Verfasst am: 24. Mrz 2009, 14:48 Rufname: es hat funktioniert. Vielen Dank fr eure Untersttzung. MissPh! Office-VBA-Programmiererin Verfasst am: 04. Mai 2012, 17:53 Rufname: Wohnort: NRW Hallo miteinander, kennt jemand vielleicht auch noch jemand einen Trick, wie man in 0, 5er Stufen aufrunden kann? Also aus 63, 1 mach 63, 5 und aus 17, 66666 mach 18, 0 und 30, 5 bleibt 30, 5. Nachtrag: Sorry vielmals, ich bin doch noch fndig geworden: auf 0, 05 Cent aufrunden _________________ Gru MissPh! micmen Im Profil kannst Du frei den Rang ndern Verfasst am: 16. Mai 2012, 15:28 Rufname: Wohnort: Frankfurt am Main MissPh! - 04. Mai 2012, 17:53 hat folgendes geschrieben: Sorry vielmals, ich bin doch noch fndig geworden: auf 0, 05 Cent aufrunden ja, eben... Das hier stimmt nmlich nicht: stpimi - 20. Mrz 2009, 08:19 hat folgendes geschrieben: Wenn 2 2 bleiben soll und aus 2, 0001 3 werden soll, musst Du 0, 5 addieren und dann die Ganzzahlfunktion davon verwenden.
In produktiven Datenbanken sollten Sie von diesen Berechneten Feldern aber eher absehen, weil die Anzeige direkter Tabelleninhalte dort zu vermeiden ist. SummeCur und SummeDez berechnen nach der identischen Formel, beziehen sich aber jeweils auf die Felder BetragCur und BetragDez. Um die Tabelle mit Daten zu füllen, gibt es die Prozedur GeneriereBetraege in der Datenbank. Sie legt 10. 000 Datensätze an und schreibt nach Zufallsprinzip Zahlen in die drei Felder Anzahl, Betrag… und Ust. Beim Betrag wird über String-Verarbeitung darauf geachtet, dass nur exakt zwei Nachkommastellen generiert werden: Dim dBetrag As Double Dim sBetrag As String dBetrag = 100 * Rnd sBetrag = CStr(Val(dBetrag * 100) / 100) rs! = sBetrag Die genaue Gestaltung der Routine interessiert hier weniger, als ihr Ergebnis, welches in Bild 2 dargestellt ist. Im Datenblatt wurde hier zusätzlich die Aggregatzeile eingeblendet. An die Aggregatzeile kommen Sie über diese Schritte: Bild 2: Das ist die Datenblattansicht der Tabelle tblBetraege, unten mit der hinzugefügten Aggregatzeile für die Summen öffnen Sie die Tabelle in der Datenblattansicht Aktivieren Sie im Ribbon die Schaltfläche Start | Datensätze | Summen.