Zeiterfassung - Timestamp
26.11.2014 12:33:21
Addi
ich möchte per Button in Excel in einem Zeiterfassungssheet meine Kommen und Gehen Zeiten in der Aktiven Zelle hinterlegen.
Derzeit habe ich dies auch wie folgt funktionsfähig gemacht:
Sub TimeCOME()
ActiveCell.Value = Format(Now - TimeSerial(0, 5, 0), "hh:mm")
End Sub
Allerdings müssen wir nun den Stamp in Viertel Stunden Schritten machen, d.h. wenn ich den Butten mit o.g. Makro betätge kommt folgendes heraus:
Aktuelle Zeit z.B. 07:56, dann wird mir der Wert abzgl. 5 min. auf 07:51 angezeigt.
Die Herausforderung:
Der Wert der abzgl. der 5 min. --> hier also 07:51 muss nun auf einen viertelstunden Takt angepasst werden (kaufmännisch), d.h. in diesem Fall müsste 07:45 angezeitg werden.
D.h. immer wenn der Ausgangswert (Minuten) zwischen 0 und 7:30, 15 und 22:30, 30 und 37:30 und 45 und 52:30 ist muss abgerundet werden - ansonsten aufrunden.
Habt Ihr hierzu eine Idee?
Vielen Dank und viele Grüße
Addi
Anzeige