Hallo Experten,
als Anfänger habe ich eine harte Nuss zu knacken
Zeiterfassung
Bedingung Abrechnung Abrunden auf 15 Minuten
Beispiel
Anfang 6:11 Uhr IstAnfang 6:00Uhr Soll 9,25 Stunden
Ende 16:03 Uhr Ist Ende 16:00Uhr Sind Stunden 10,00
Sind 0,45 Minuten Überstunden und dann sollen die Über-
oder Fehlstunden täglich addiert werden.
Ist das zu verwirklichen? Wer kann helfen?
Martin
Auf die Minutenzahl runden bzw. abrunden kannst du so:
Public Function ZeitAbrunden(D, Optional Minuten = 15)
Dim Tmp As Double
Tmp = (((CDbl(D) \* 1440#) \ Minuten) \* Minuten) / 1440#
ZeitAbrunden = CDate(Tmp)
End Function
Public Function ZeitRunden(D, Optional M = 15)
Dim Tmp As Double
Tmp = ((((CDbl(D) \* 1440#) + (Minuten / 2)) \ Minuten) \* Minuten) / 1440#
ZeitRunden = CDate(Tmp)
End Function
Ansonsten schau vielleicht auch mal hier: http://www.donkarl.com/FAQ/FAQ2Allgemein.htm#2.10 (FAQ 2.10)
Gruß aus dem Norden
Reinhard Kraasch
Hallo Reinhard,
vielen Dank für die Hilfe, muss jetzt erst mal in Ruhe versuchen das Ganze zusammen zu bauen.
Martin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]