Super,
das klappt so wie es sein soll.
Vielen Dank
ConfluenceHunter
Beiträge von ConfluenceHunter
-
-
Hallo
ich brauche jetzt doch Hilfe, nachdem ich zwei Tage versucht habe eine Lösung zu finden.
Ich habe eine Eingabemaske und möchte die Anzahl der Sekunden zwischen der aktuellen Zeit und den Eingabewerten ($Date1 sowie $idTime ) und der aktuellen Zeit ermitteln.
_DateDiff('s', ?, _NowCalc()) durch welche Variable muß das ? ersetzt werden
AutoIt
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Date.au3> #include <MsgBoxConstants.au3> Example() Func Example() #Region ### START Koda GUI section ### Form=e:\autoit\scripte\eingabefeld.kxf $Form1_1 = GUICreate("Wann soll die Ladung beginnen ? ", 345, 250, 800, 300) $Input1 = GUICtrlCreateInput("10", 71, 25, 35, 27) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") $Button1 = GUICtrlCreateButton("OK", 200, 190, 49, 41) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") $Label1 = GUICtrlCreateLabel("KWh", 119, 29, 49, 23) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") $Date1 = GUICtrlCreateDate(_NowDate, 71,75, 197, 27) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") Global $idTime = GUICtrlCreateDate("", 71, 130, 197, 27, $DTS_TIMEFORMAT) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") global $sDate Global $sTime Global $iUebergabe Global $date1 Global $iDateCalc Global $iStartzeit Global $iStartzeit2 Global $idDate Global $iDate global $iStart Global $sStyle = "HH:mm:ss" GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitLoop Case $Button1 ExitLoop EndSwitch WEnd Global $sDate = GUICtrlRead($idDate) ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sDate = ' & $sDate & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console Global $sTime = GUICtrlRead($idTime) ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sTime = ' & $sTime & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console Global $sDt = StringRegExpReplace($sDate, '(\d{2})\.(\d{2})\.(\d{4})', '$3$2$1') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sDt = ' & $sDt & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console Global $sTm = StringReplace($sTime, ':', '') ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sTm = ' & $sTm & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console Local $sStyle = "yyyy/MM/dd" GUICtrlSendMsg($Date1, $DTM_SETFORMATW, 0, $sStyle) MsgBox(0,"Datum/Zeit","Datum " & GUICtrlRead($Date1) & " Std " & GUICtrlRead($idTime)) MsgBox (64,"Date ",GUICtrlRead($Date1)) MsgBox (64,"Time ",GUICtrlRead($idTime)) EndFuncDanke im voraus