Post by ichdotcom » 20 Nov 2017, 14:51
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
Spoilerzeit := 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
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[/spoiler]