Überstunden errechnen/abspeichern/wiedergeben

[ichdotcom]

Hallo zusammen,
kann mir hier vielleicht irgendeiner helfen?
Ich bau ein Tool in dem ich mittels Textfeld den Arbeitsbeginn und Ende hineinschreiben kann.
Das Tool speichert es mir samt aktuellem Datum als *.csv ab und zeigt es auch wunderbar an.
Theoretischer Arbeitsbeginn um 07:00h Ende um 15:30h Pause 0:30h


Das Problem ist nun folgendes: ich möchte das mir dieses Tool in einer extra spalte die geleistete Überstunden berechnet, zusätzlich in die Datei als Zeit einträgt und auch als Zeit in der Spalte Überstunden im Tool wiedergibt und ich hab keine Ahnung wie ich das Bauen kann

ich hoffe ihr habt eine Idee

Spoiler

zeit := A_Hour . ":" . A_Min . ":" A_Sec
datum := A_DD . "." . A_MM . "." A_YYYY
;dateiauslesen=======================================
SetWorkingDir %A_ScriptDir%
f1=%a_scriptdir%\Überstunden.csv
;fileread,%f1%
ifnotexist,%f1%
fileappend,%f1%

Gui, Add, Text, x10 y10, Arbeitsbeginn:
Gui, Add, Text, x10 y25, Stunden
Gui, Add, Edit, x10 y40 w40 vbh
Gui, Add, Text, x60 y25, Minuten
Gui, Add, Edit, x60 y40 w40 vbm
Gui, Add, Text, x10 y70, Arbeitsende:
Gui, Add, Text, X10 y85, Stunden
Gui, Add, Edit, x10 y100 w40 veh
Gui, Add, Text, x60 y85, Minuten
Gui, Add, Edit, x60 y100 w40 vem
Gui, Add, Button, x10 y140 gueb, Übernehmen
Gui, add, listview, x140 y10 w250 h150 gA1 vLV1, Datum|Beginn|Ende|Überstunden
;========================================================

sleep, 100
Loop, Read,%f1%
{
StringSplit,c, A_LoopReadLine, `,
LV_Add("",c1,c2,c3,c4)
}
LV_ModifyCol()


;Uhr

Gui, Color, white
Gui, Font, s20, Calibri
Gui, Add, Text, x300 y170 cblack vUhrzeit
, % A_Hour . ":" . A_Min . ":" . (Sec := A_Sec)
Gui, Font, s12
Gui, Add, Text, x220 y180 cblack vDatum
, % (DD := A_DD) . "." . A_MM . "." A_YYYY
Gui, Show, w400 h200, Stechuhr
Settimer, Uhr, 50 ;
Return
; ------------------------------------------------------------------------------
Uhr:
If (A_Sec != Sec)
GuiControl, , Uhrzeit, % A_Hour . ":" . A_Min . ":" . (Sec := A_Sec)
If (A_DD != DD)
GuiControl, , Datum, % (DD := A_DD) . "." . A_MM . "." A_YYYY
Return





A1:
; doubleclick on row
GuiControlGet,LV1
cw:= LV_GetNext(0, "F")
LV_GetText(D1,cw,1)
LV_GetText(D2,cw,2)
LV_GetText(D3,cw,3)
LV_GetText(D4,cw,4)
msgbox, 262208,CSV_RESULT ,Datum=%d1%`nBeginn=%d2%`nEnde=%d3%`nÜberstunden=%d4%
Return
; ------------------------------------------------------------------------------


ueb:
gui, Submit, NoHide
FileAppend, %datum%`,%bh%`:%bm%`,%eh%`:%em%`n,Überstunden.csv
LV_Delete()
sleep, 10
Loop, Read,%f1%
{
StringSplit,c, A_LoopReadLine, `,
LV_Add("",c1,c2,c3,c4)
}
LV_ModifyCol()
return
löschen:
FileDelete Überstunden.csv
LV_Delete()
return
send:

return

GuiClose:
ExitApp

[divanebaba]

Folgende Ergänzung Deines ueb-Labels erledigt einen Großteil Deiner Wünsche.

Code: Select all

Kommen := A_YYYY . A_MM . A_DD . bh . bm . "00" ; Erstelle Zeitstempel im YYYYMMDDHH24MISS-Format.
Gehen := A_YYYY . A_MM . A_DD . eh . em . "00"
; Zeit := Gehen - Kommen
EnvSub, Gehen, %Kommen%, Minutes ; Ergebnis wird in die erste Variable zurückgeschrieben
FileAppend, %datum%`,%bh%`:%bm%`,%eh%`:%em%`,%Gehen%`n,Überstunden.csv

Hier habe ich es mir einfach gemacht und nur die Differenzminuten ausgegeben.
Bleiben noch Fragen offen, wie Arbeitszeit über zwei Tage, die Pausenberechnung, etc..

Ich würde keine eigenen Edit-Felder für Stunden und Minuten angeben, sondern beides in ein Edit-Feld packen und ohne Separator eingeben. Beispiel: Uhrzeit ist 9:15 -> Eingabe 915.
Aber das sind nur Feinheiten, die ein wenig die Eingabezeit reduzieren.

[just me]

Moin,

ich habe zu Deinem Code noch ein paar Fragen:

1. Wie es ist, kann man mit dem Skript immer nur die Werte für den aktuellen Tag eingeben., d.h. man kann das Ende eigentlich erst nach dem 'Ausstempeln' erfassen. Ist das so gewollt?
2. Nach Deiner Beschreibung gehe ich davon aus,
   • dass die Regelarbeitszeit 8 Stunden beträgt,
   • täglich 30 Minuten als Pause berücksichtigt werden,
   • ihr in Gleitzeit arbeitet,
   • auch Fehlstunden möglich sind.
   Ist das so richtig?

[ichdotcom]

hallöchen, divanebaba danke für deinen tip, konnte ich auch bisher gut umsetzen, er rechnet mir die gesamt zeit aus, das ist schon mal gut, nun muss ich nur noch herrausfinden wie er mir minus die 08:30+x= x=überstunden rausspuckt in 00:00 format

1. huhu just me, es ist ne kleine hilfe für meinen großen Sohn, er möchte zu haus sichergehen das in seiner Ausbildung alles funktioniert und führt deshalb eine exceltabelle mit seiner geleisteten arbeit,
ich möchte ihn gern dabei unterstützen...
2. 8 stunden beträgt die arbeitszeit
30 minuten pause
gleitzeit nein er fängt immer um die selbe zeit an
und fehlstunden d.h. er wir früher nach hause geschickt oder darf den tag fernbleiben ist möglich ja

[divanebaba]

Hier ein Beispiel zum Erstellen von Zeitangaben. Bestimmt gibt es einen eleganteren Weg, aber dies ist nur ein Hinweis.
Eine Fehlerabfangroutine, welche Stunden- und Minutenangaben ohne eine führende Null erkennt und verarbeitet, ist ebenfalls vorhanden.
Falsche Minuteneingaben, bspw. 65 Min, verursachen noch Fehler und die Pausenberechnung ist noch ausstehend, aber auch Du sollst Dich nicht langweilen.
Folgende Ergänzung, Deines ueb-Labels, zeigt die Arbeitszeit nun in Stunden:Minuten an:

Code: Select all

ueb:
gui, Submit, NoHide
if (bh >= 10)
Kommen := A_YYYY . A_MM . A_DD . bh . bm . "00"
else
Kommen := A_YYYY . A_MM . A_DD . "0" . bh . bm . "00"
if (bm >= 10)
Gehen := A_YYYY . A_MM . A_DD . eh . em . "00"
else
Gehen := A_YYYY . A_MM . A_DD . eh . "0" . em . "00"
EnvSub, Gehen, %Kommen%, Minutes
Stunden := Round((Gehen-0.5)/60,0)
Minuten := Round((Gehen/60-Stunden)*60,0)
Zeit := Stunden . ":" . Minuten
FileAppend, %datum%`,%bh%`:%bm%`,%eh%`:%em%`,%Zeit%`n,Überstunden.csv
LV_Add("",datum,bh ":" bm,eh ":" em,Zeit)
LV_ModifyCol()
return

Wie Du sehen kannst, habe ich Dein ueb-Label überarbeitet und eine redundante Aktion herausgenommen. Neueinträge werden nun direkt in die ListView eingetragen, ohne daß die ListView zuvor gelöscht wird.
Vielleicht solltest Du eine weitere Spalte für die Arbeitszeit einfügen. Das würde die Mindestanforderung für eine solche Stundenliste erfüllen, aber das ist nun wirklich nicht mein Bier.