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