Office: Aufrunden der Stundenanzahl

Hallo,

kann mir wer sagen, wie ich in VBA auf volle Stunden auf bzw. abrunden kann? Das ganze soll dann so aussehen:
Ich habe eine Stunden Angabe:
166:56:27
Diese Stundenangabe soll dann auf 167 std. gerundet werden.
Das gleiche soll mit Abrunden funktionieren:
6:12:58 --> 6 std.

Vielleicht kann mir dazu jemand helfen.

Vielen Dank!

:)

 

So?
Code:

 

War auch meine Idee aber dann sagt er mir:
Typen unverträglich

 

Moin!
Dann dürftest Du Text in der Zelle stehen haben, was man mittels CDate(Zelle) umgehen können sollte.

Gruß Ralf

 

Round ist nicht korrekt. Es geht um kaufmännisches, nicht mathematisches Runden, Bernie.

Äquivalent von =TEXT(A1+"0:30";"[h]")/24 in VBA.

 

\@Lupo: das steht aber nirgendwo *Smilie
Es soll ja Firmen geben, die Stunden großzügig runden. Wobei zugegebenermaßen selten zugunsten der Mitarbeiter.

 

Hallo RPP63neu,

habe recherchiert und versucht was mit CDate zu machen, komme da aber nur auf Fehler. Könntest du mir einen Denkanstoß geben?

 

Du hast mich falsch verstanden, Bernie. Es geht nicht um Großzügigkeit. Zum Verständnis des Rundens auf gerade Zahl (=math):

Sub RundenMathUndKFM()
MsgBox _
"0,5: math " & Round(0.5) & ", kfm. " & WorksheetFunction.Round(0.5, 0) & Chr(10) & _
"1,5: math " & Round(1.5) & ", kfm. " & WorksheetFunction.Round(1.5, 0) & Chr(10) & _
"2,5: math " & Round(2.5) & ", kfm. " & WorksheetFunction.Round(2.5, 0) & Chr(10) & _
"3,5: math " & Round(3.5) & ", kfm. " & WorksheetFunction.Round(3.5, 0) & Chr(10) & _
"4,5: math " & Round(4.5) & ", kfm. " & WorksheetFunction.Round(4.5, 0) & Chr(10) & _
"5,5: math " & Round(5.5) & ", kfm. " & WorksheetFunction.Round(5.5, 0)
End Sub

Ich habe diese Feinheit auch erst vor ca. 8 Jahren zum ersten Mal erkannt; https://de.wikipedia.org/wiki/Rundun...tisches_Runden :

"Das kaufmännische Runden erzeugt kleine systematische Fehler, da das Aufrunden um 0,5 vorkommt, das Abrunden um 0,5 jedoch nie; das kann Statistiken geringfügig verzerren. Die mathematische Rundung rundet von der genauen Mitte zwischen zwei Ziffern immer zur nächsten geraden Ziffer auf oder ab. Dadurch wird im Mittel genauso oft auf- wie abgerundet und der oben angesprochene systematische Fehler vermieden."

 

Kannst du uns deinen Code zeigen, mit dem du es probiert hast?
Dann ist es einfacher zu sehen, wo der Fehler liegt.

 

bin noch ziemlicher VBA neuling und habe nach stöbern in verschiedenen Foren so etwas probiert:

zeit1 = CDate(Range("M7").Value)
Range("M7").Value = Format(zeit1, "hhh")

 

"h" (oder besser "[h]") schneidet die Minuten ab. Das will hier keiner.

 

Die Minuten sollen ja auch gar nicht dargestellt werden. Es geht ja lediglich um die Stundenzahl die nach den Minuten auf- bzw. abgerundet werden soll.
Wenn ich deine Anmerkung jetzt richtig verstanden habe

 

Hast Du nicht. Abschneiden ist (bei positiven Zahlen) gleichbedeutend mit Abrunden. Du aber willst "bürgerlich" runden, siehe Wiki-Link oben.

 

\@Lupo: Danke für die Info - allerdings kapiere ich es ehrlich gesagt nicht. Wieso ergibt 1,5 und 2,5 beim mathematischen Runden 2, beim kaufmännischen (wie man es halt kennt) aber 2 bzw. 4?

 

2 bzw. 3 (nicht: 4).

Der Grund steht kursiv geschrieben. Für's einfache Volk: Keiner will Round. Alle wollen RUNDEN().