Elzie

Test timer to exit gui

11 posts in this topic

#1 ·  Posted (edited)

Hi all and thank you for your help. I have been working on a log-out for a gui and some times this code will not work. How do I get past AM and PM?

Edit 1 Ok i think I have it. Thanks Valuater https://www.autoitscript.com/wiki/Snippets_(_Time_%26_Date_)

Edit 2 Still not there... Please help.

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <date.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Time Machine", 252, 117, 2421, 445)
GUISetBkColor(0xA6CAF0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Checkbox1 = GUICtrlCreateCheckbox("Exit GUI ", 24, 24, 105, 25)
$Date1 = GUICtrlCreateDate(" ", 136, 24, 98, 24,   $DTS_TIMEFORMAT)
$Label1 = GUICtrlCreateLabel("00:00:00 ", 136, 72, 93, 20)
GUIctrlSetData($Label1, _Time())
$Button1 = GUICtrlCreateButton("Start", 24, 72, 75, 25)
GUICtrlSetOnEvent($Button1, "_Func_1")
$Button2 = GUICtrlCreateButton("Stop", 24, 72, 75, 25)
GUICtrlSetOnEvent($Button2, "_Func_2")
GUICtrlSetState($Button2, $GUI_HIDE)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "_COMMAND_STOP")

Global $stop = 0; set exitloop flag
While 1
    Sleep(100)
WEnd


Func _Func_1()
    GUICtrlSetState($Button1, $GUI_HIDE); Hide and show start and stop
    GUICtrlSetState($Button2, $GUI_SHOW)
    While 1
        Sleep(1000)
        If $stop <> 0 Then ; set exitloop
            Return
        EndIf
        If _IsChecked($Checkbox1) Then; check for checkbox to exit
            Local $set = GUICtrlRead($Date1)
            Local $tm = _Time()
            If $set < $tm Then

                Exit
            EndIf
        EndIf
        GUICtrlSetData($Label1, $tm ); set lable time
    WEnd
EndFunc   ;==>_Func_1

Func _Time()
    Local $hour = @HOUR, $AMPM = "AM"
    If $hour > 11 Then $AMPM = "PM"
    If $hour = 0 Then $hour = 12
    If $hour > 12 Then $hour -= 12
    Return $hour & ":" & @MIN & ":" & @SEC & " " & $AMPM
EndFunc ;==>_Time

Func _Func_2();====================================== Set button 1 to show and hide button 2
    GUICtrlSetState($Button2, $GUI_HIDE)
    GUICtrlSetState($Button1, $GUI_SHOW)
    $stop = 0
EndFunc   ;==>_Func_2

Func _IsChecked($idControlID);===================== Look for Checkbox ======================
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Func _COMMAND_STOP($hWnd, $Msg, $wParam, $lParam); Set $Interrupt to stop loop
    If BitAND($wParam, 0x0000FFFF) = $Button2 Then $stop = 1
    Return $GUI_RUNDEFMSG
EndFunc   ;==> _COMMAND_STOP

Func _Exit()
    Exit
EndFunc   ;==>_Exit

 

 

 

 

Edited by Elzie
Fix

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

  Help ... I think i need to add a date for it to work.

Edited by Elzie
ask for help on date

Share this post


Link to post
Share on other sites

Elzie,

How about this?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

Opt("GUIOnEventMode", 1)

Global $bRun = False, $iSec = @SEC

$hGUI = GUICreate("Time Machine", 252, 117)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

$cCheck = GUICtrlCreateCheckbox("Exit GUI ", 24, 24, 105, 25)
$cDate = GUICtrlCreateDate(" ", 136, 24, 98, 24,   $DTS_TIMEFORMAT)
$cLabel = GUICtrlCreateLabel(_Time(1), 136, 72, 93, 20)

$cButton = GUICtrlCreateButton("Start", 24, 72, 75, 25)
GUICtrlSetOnEvent($cButton, "_Func_1")

GUISetState(@SW_SHOW)

While 1

    Sleep(10)

    ; Do we need to check?
    If $bRun Then
        ; Check box checked and times match?
        If  GUICtrlRead($cCheck) = $GUI_CHECKED And _Time() = GUICtrlRead($cDate) Then
            MsgBox($MB_SYSTEMMODAL, "Hi", "Exiting")
        EndIf

    EndIf



    ; Time to update the label?
    If $iSec <> @SEC Then
        GUICtrlSetData($cLabel, _Time(1))
        $iSec = @SEC
    EndIf



WEnd



Func _Time($iMode = 0)

    Switch $iMode

        Case 0 ; 24 hr

            Return @HOUR & ":" & @MIN & ":" & @SEC
        Case 1 ; 12 hr

            $sHour = @HOUR
            $sAMPM = "AM"
            If $sHour > 12 Then
                $sHour -= 12
                $sAMPM = "PM"
            EndIf

            Return $sHour & ":" & @MIN & ":" & @SEC & " " & $sAMPM

    EndSwitch



EndFunc



Func _Func_1()

    Switch GUICtrlRead($cButton)
        Case "Start"
            GUICtrlSetData($cButton, "Stop")
        Case "Stop"
            GUICtrlSetData($cButton, "Start")
    EndSwitch

    $bRun = Not $bRun



EndFunc   ;==>_Func_1

Func _Exit()
    Exit
EndFunc   ;==>_Exit

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Thank you so much for your help Melba, but it's still not quite there yet. I get the wrong time up on this and will it go into the next day? I like the idea of just changing the data on the button instead of hiding it, looks cleaner. 

 

Thanks

Elzie

Share this post


Link to post
Share on other sites

Elzie,

I get the wrong time up on this

Can you explain more clearly - what exactly is "wrong" with the time display?

will it go into the next day?

Yes, you can set the time 23:59:59 in advance and it will wait patiently.

M23 


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Sorry, The second time I ran it the time did display correctly but it would not close the gui. Will it run past pm to am ( from say the 31st to the 1st.) Again thanks for your help.

 

Best Regards

Elzie

Share this post


Link to post
Share on other sites

Elzie,

As there is never a check of the date there is no reason why it would not work over the end of a month.

but it would not close the gui

Are you saying that it still does not work as you wish? Can you reproduce the problem for me to debug as it worked perfectly when I tested it.

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

I can not get this function to work.

Func _Time($iMode = 0)
    Switch $iMode
        Case 0 ; 24 hr
            Return @HOUR & ":" & @MIN & ":" & @SEC
        Case 1 ; 12 hr
            $sHour = @HOUR
            $sAMPM = "AM"
            If $sHour > 12 Then
                $sHour -= 12
                $sAMPM = "PM"
            EndIf
            Return $sHour & ":" & @MIN & ":" & @SEC & " " & $sAMPM
    EndSwitch
 EndFunc   ;==>_Time

But if I change it to this

 

Func _Time( )
    Local $hour = @HOUR, $AMPM = "AM"
    If $hour > 11 Then $AMPM = "PM"
    If $hour = 0 Then $hour = 12
    If $hour > 12 Then $hour -= 12
    Return $hour & ":" & @MIN & ":" & @SEC & " " & $AMPM
EndFunc ;==>_Time

It works. Not sure why.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

Opt("GUIOnEventMode", 1)

Global $bRun = False, $iSec = @SEC

$hGUI = GUICreate("Time Machine", 252, 117)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

$cCheck = GUICtrlCreateCheckbox("Exit GUI ", 24, 24, 105, 25)
$cDate = GUICtrlCreateDate(" ", 136, 24, 98, 24, $DTS_TIMEFORMAT)
$cLabel = GUICtrlCreateLabel(_Time( ), 136, 72, 93, 20)

$cButton = GUICtrlCreateButton("Start", 24, 72, 75, 25)
GUICtrlSetOnEvent($cButton, "_Func_1")

GUISetState(@SW_SHOW)

While 1
    Sleep(10)
    ; Do we need to check?
    If $bRun Then
        ; Check box checked and times match?
         If  GUICtrlRead($cCheck) = $GUI_CHECKED And _Time() = GUICtrlRead($cDate) Then

                MsgBox($MB_SYSTEMMODAL, "Hi", "Exiting")
                Exit

        EndIf
    EndIf

    ; Time to update the label?
    If $iSec <> @SEC Then
        GUICtrlSetData($cLabel, _Time( ))
        $iSec = @SEC
    EndIf
WEnd


Func _Time( )
    Local $hour = @HOUR, $AMPM = "AM"
    If $hour > 11 Then $AMPM = "PM"
    If $hour = 0 Then $hour = 12
    If $hour > 12 Then $hour -= 12
    Return $hour & ":" & @MIN & ":" & @SEC & " " & $AMPM
EndFunc ;==>_Time


;Func _Time($iMode = 0)
;   Switch $iMode
;       Case 0 ; 24 hr
;           Return @HOUR & ":" & @MIN & ":" & @SEC
;       Case 1 ; 12 hr
;           $sHour = @HOUR
;           $sAMPM = "AM"
;           If $sHour > 12 Then
;               $sHour -= 12
;               $sAMPM = "PM"
;           EndIf
;           Return $sHour & ":" & @MIN & ":" & @SEC & " " & $sAMPM
;   EndSwitch
;EndFunc   ;==>_Time

Func _Func_1()
    Switch GUICtrlRead($cButton)
        Case "Start"
            GUICtrlSetData($cButton, "Stop")
        Case "Stop"
            GUICtrlSetData($cButton, "Start")
    EndSwitch
    $bRun = Not $bRun
EndFunc   ;==>_Func_1

Func _Exit()
    Exit
EndFunc   ;==>_Exit

 

Edit 1 I may need to update autoit.

Thanks

Elzie

Edited by Elzie

Share this post


Link to post
Share on other sites

Elzie,

But if I change it to this [...] It works. Not sure why.

Then I suggest you stick with the function that works.

M23 


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Thank you Melba for your forbearance. I will read more on ( guictrlcreatedate ) And try to get a working function, on time, that works with a OnEvent gui.

 

Best Regards

Elzie

 

Share this post


Link to post
Share on other sites

Elzie,

I am really surprised to hear you say that the function you use works - it returns a 12hr time format and the date control gives a 24hr format so I fail to see how the 2 match outside the 1-11 AM bracket. Why are you so fixed on having the label in 12hr format?

I have simplified the _Time function - see if this works for you:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

Opt("GUIOnEventMode", 1)

Global $bRun = False, $iSec = @SEC

$hGUI = GUICreate("Time Machine", 252, 117)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

$cCheck = GUICtrlCreateCheckbox("Exit GUI ", 24, 24, 105, 25)
$cDate = GUICtrlCreateDate(" ", 136, 24, 98, 24, $DTS_TIMEFORMAT)
$cLabel = GUICtrlCreateLabel(_Time(), 136, 72, 93, 20)

$cButton = GUICtrlCreateButton("Start", 24, 72, 75, 25)
GUICtrlSetOnEvent($cButton, "_Func_1")

GUISetState(@SW_SHOW)

While 1

    Sleep(10)
    ; Do we need to check?
    If $bRun Then
        ; Check box checked and times match?
        If GUICtrlRead($cCheck) = $GUI_CHECKED And @HOUR & ":" & @MIN & ":" & @SEC = GUICtrlRead($cDate) Then
            MsgBox($MB_SYSTEMMODAL, "Hi", "Exiting")
            Exit
        EndIf

    EndIf



    ; Time to update the label?
    If $iSec <> @SEC Then
        GUICtrlSetData($cLabel, _Time())
        $iSec = @SEC
    EndIf



WEnd



Func _Time()

    $iHour = @HOUR
    $sAMPM = "AM"
    If $iHour > 12 Then
        $sHour = String($iHour - 12)
        $sAMPM = "PM"
    ElseIf $iHour = 0 Then
        $sHour = "12"
    Else
        $sHour = StringRight($iHour, 1)
    EndIf

    Return $sHour & ":" & @MIN & ":" & @SEC & " " & $sAMPM



EndFunc   ;==>_Time

Func _Func_1()

    Switch GUICtrlRead($cButton)
        Case "Start"
            GUICtrlSetData($cButton, "Stop")
        Case "Stop"
            GUICtrlSetData($cButton, "Start")
    EndSwitch

    $bRun = Not $bRun



EndFunc   ;==>_Func_1

Func _Exit()
    Exit
EndFunc   ;==>_Exit

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • nacerbaaziz
      By nacerbaaziz
      hello
      please i need to link a progress bar with a time can you help me?
      e.g
      i want to set a progress bar for 10 sec
      am waiting for your answers
      thank you.
    • imitto
      By imitto
      Hello all!
      I use Autoit for a while, already made some automation for a TV station's master control room with it. I made a UDF to easily work with PAL timecode and time with milliseconds, convert, add or subtract them. Feel free to use it if you want something like this
      #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Res_Description=PAL Timecode Calculator UDF #AutoIt3Wrapper_Res_LegalCopyright=horvath.imre@gmail.com #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ; ; #FUNCTION# ; Name...........: _tcAdd ; Description....: Returns addition of two timecodes ; Syntax.........: _tcAdd($fTc1, fTc2 [, $fFormat = "P"]) ; ; Parameters.....: $fTc1 - First timecode in hh:mm:ss.ff format ; $fTc2 - Second timecode in hh:mm:ss.ff format ; $fFormat - Time base - "P" (default): PAL (25 fps) ; "M" : millisecond ; ; Return value...: Sum of the two timecode in the selected format Func _tcAdd($fTc1, $fTc2, $fFormat = "P", $fHourFormat = 1) Local $fMs1 = _tcToMs($fTc1) Local $fMs2 = _tcToMs($fTc2) Local $fSumMs = $fMs1 + $fMs2 Return _msToTc($fSumMs, $fFormat, $fHourFormat) EndFunc ; #FUNCTION# ; Name...........: _tcsSub ; Description....: Returns addition of two timecodes ; Syntax.........: _tcSub($fTc1, fTc2 [, $fFormat = "P"]) ; ; Parameters.....: $fTc1 - First timecode in hh:mm:ss.ff format ; $fTc2 - Second timecode in hh:mm:ss.ff format ; $fFormat - Time base - "P" (default): PAL (25 fps) ; "M" : millisecond ; ; Return value...: Subtract $fTc2 from $fTc1 in the source format Func _tcSub($fTc1, $fTc2, $fFormat = "P") Local $fMs1 = _tcToMs($fTc1) Local $fMs2 = _tcToMs($fTc2) Local $fSumMs = $fMs1 - $fMs2 If $fSumMs < 0 Then $fSumMs = _tcToMs("24:00:00.00") - ($fSumMs * -1) EndIf Return _msToTc($fSumMs, $fFormat) EndFunc ; #FUNCTION# ; Name...........: _tcToMs ; Description....: Returns timecode converted to total milliseconds ; Syntax.........: _tcToMs($fTc) ; ; Parameters.....: $fTc - Timecode in hh:mm:ss.ff or hh:mm:ss:xxx format, where xxx are milliseconds ; ; Return value...: Milliseconds as an integer value Func _tcToMs($fTc) Local $fTemp = StringSplit($fTc, ":.") Local $fChr = StringLen($fTemp[4]) Switch $fChr Case 2 Return ($fTemp[4] * 40) + ($fTemp[3] * 1000) + ($fTemp[2] * 60000) + ($fTemp[1] * 3600000) Case 3 Return ($fTemp[4]) + ($fTemp[3] * 1000) + ($fTemp[2] * 60000) + ($fTemp[1] * 3600000) EndSwitch EndFunc ; #FUNCTION# ; Name...........: _msToTc ; Description....: Converts total milliseconds to timecode ; Syntax.........: _msToTc($fIn, $fFormat = "P", $fHourFormat = 1) ; ; Parameters.....: $fIn - Time in milliseconds ; $fFormat - Output format "P": PAL TC (default) ; "M": hh:mm:ss.xxx where xxx are milliseconds ; $fHourFormat - Hour format "1": max. value is 23, then starts from 0 (default) ; "0": hours can be more then 23 ; ; Return value...: Timecode as string in the selected format Func _msToTc($fIn, $fFormat = "P", $fHourFormat = 1) Switch $fFormat Case "P" Local $fFr = StringFormat("%02i", (StringRight($fIn, 3) - Mod(StringRight($fIn, 3), 40)) / 40) Case "M" Local $fFr = StringFormat("%03i", StringRight($fIn, 3)) EndSwitch $fIn = StringTrimRight($fIn, 3) Local $fSec = StringFormat("%02i", Mod($fIn, 60)) $fIn -= $fSec Local $fMinTot = $fIn / 60 Local $fMin = StringFormat("%02i", Mod($fMinTot, 60)) $fIn -= $fMin*60 Local $fHourTot = $fIn / 60 / 60 Switch $fHourFormat Case 1 $fHour = StringFormat("%02i", Mod($fHourTot, 24)) Case 0 $fHour = StringFormat("%02i", $fHourTot) EndSwitch Return($fHour & ":" & $fMin & ":" & $fSec & "." & $fFr) EndFunc ; #FUNCTION# ; Name...........: _tcFormatChange ; Description....: Toggle TC format ; Syntax.........: _tcFormatChange($fTc) ; ; Parameters.....: $fTc - Timecode in hh:mm:ss.ff or hh:mm:ss:xxx format, where xxx are milliseconds ; ; Return value...: PAL timecode or time with milliseconds as string, depends on input Func _tcFormatChange($fTc) Local $fTemp = StringSplit($fTc, ":.") Local $fChr = StringLen($fTemp[4]) Switch $fChr Case 2 Return $fTemp[1]&":"&$fTemp[2]&":"&$fTemp[3]&"."&StringFormat("%03i", $fTemp[4]*40) Case 3 Return $fTemp[1]&":"&$fTemp[2]&":"&$fTemp[3]&"."&StringFormat("%02i", ($fTemp[4]-Mod($fTemp[4], 40))/40) EndSwitch EndFunc And the example script:
      #include<_PAL_TC_Calc.au3> $palTC1 = "00:01:12.20" $palTC2 = "23:59:50.02" $msTC1 = "00:01:12.800" $msTC2 = "23:59:50.120" MsgBox(0, "1", _tcAdd($palTC1, $palTC2)); Adds $palTC1 to $palTC2, turns hour back to 0 after 23, returns PAL TC format MsgBox(0, "2", _tcAdd($palTC1, $palTC2, "M")); Adds $palTC1 to $palTC2, turns hour back to 0 after 23, returns time with milliseconds format MsgBox(0, "3", _tcAdd($palTC1, $palTC2, "M", 0)); Adds $palTC1 to $palTC2, hours can be infinite, returns time with milliseconds format MsgBox(0, "4", _tcAdd($msTC1, $msTC2)); Adds $palTC1 to $palTC2, turns hour back to 0 after 23, returns PAL TC format MsgBox(0, "5", _tcAdd($msTC1, $msTC2, "M")); Adds $palTC1 to $palTC2, turns hour back to 0 after 23, returns time with milliseconds format MsgBox(0, "6", _tcAdd($msTC1, $msTC2, "M", 0)); Adds $palTC1 to $palTC2, hours can be infinite, returns time with milliseconds format MsgBox(0, "7", _tcSub($palTC2, $palTC1)); Subtract $palTC1 from $palTC2, returns PAL TC format MsgBox(0, "8", _tcSub($palTC2, $palTC1, "M")); Subtract $palTC1 from $palTC2, time with milliseconds format MsgBox(0, "9", _tcSub($msTC1, $msTC2)); Subtract $palTC1 from $palTC2, returns PAL TC format - when hits zero, counts back from 24:00:00.00 MsgBox(0, "10", _tcSub($msTC1, $msTC2, "M")); Subtract $palTC1 from $palTC2, time with milliseconds format - when hits zero, counts back from 24:00:00.000 MsgBox(0, "11", _tcFormatChange($palTC2)); Convert PAL TC to time with milliseconds and back MsgBox(0, "12", _tcFormatChange($msTC2)); Convert PAL TC to time with milliseconds and back  
      TC_CALC_example.au3
      _PAL_TC_Calc.au3
    • Realm
      By Realm
      After Several Minutes searching the forums for a simple solution to calculating for the Unix Time, as required for another project I am working on, I was astonished to not find one clean and universal solution. After looking over the helpfile, I noticed one simple solution given in the example with _DateDiff(). However it did not account for my current timezone or daylight savings time.
      Without further ado... This is my example of Calculating for a current Unix Time stamp or  seconds since Jan, 1st, 1970 00:00:00 GMT.
      This function will account for your timezone as well as for daylight savings time.
      Update: v0.3
      -Added Function to revert a Unix Time stamp into Date form.
      -Added parameter to original _GetUnixTime() allowing for a custom date since Jan 1st 1970 to be passed and converted to Unix Time.
      #include <Date.au3> #include <Array.au3> #include <Constants.au3> Local $iUnixTime1 = _GetUnixTime() MsgBox($MB_SYSTEMMODAL, "Unix Timestamp", "Seconds Since Jan, 1st, 1970 00:00:00 GMT" & @CRLF & $iUnixTime1) Local $sUnixDate1 = _GetDate_fromUnixTime($iUnixTime1) MsgBox($MB_SYSTEMMODAL, "Unix Timestamp", "Get Date from Unix Timestamp in Local Time" & @CRLF & $sUnixDate1) $sUnixDate1 = _GetDate_fromUnixTime($iUnixTime1, False) MsgBox($MB_SYSTEMMODAL, "Unix Timestamp", "Get Date from Unix Timestamp with $iReturnLocal = False which returns UTC Time" & @CRLF & $sUnixDate1) Local $iUnixTime2 = _GetUnixTime('2013/01/01 00:00:00') MsgBox($MB_SYSTEMMODAL, "Unix Timestamp", "Seconds since 2013/01/01 00:00:00" & @CRLF & $iUnixTime2) ; Get timestamp for input datetime (or current datetime). Func _GetUnixTime($sDate = 0);Date Format: 2013/01/01 00:00:00 ~ Year/Mo/Da Hr:Mi:Se Local $aSysTimeInfo = _Date_Time_GetTimeZoneInformation() Local $utcTime = "" If Not $sDate Then $sDate = _NowCalc() If Int(StringLeft($sDate, 4)) < 1970 Then Return "" If $aSysTimeInfo[0] = 2 Then ; if daylight saving time is active $utcTime = _DateAdd('n', $aSysTimeInfo[1] + $aSysTimeInfo[7], $sDate) ; account for time zone and daylight saving time Else $utcTime = _DateAdd('n', $aSysTimeInfo[1], $sDate) ; account for time zone EndIf Return _DateDiff('s', "1970/01/01 00:00:00", $utcTime) EndFunc ;==>_GetUnixTime ;$blTrim: Year in short format and no seconds. Func _GetDate_fromUnixTime($iUnixTime, $iReturnLocal = True) Local $aRet = 0, $aDate = 0 Local $aMonthNumberAbbrev[13] = ["", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"] Local $timeAdj = 0 If Not $iReturnLocal Then Local $aSysTimeInfo = _Date_Time_GetTimeZoneInformation() Local $timeAdj = $aSysTimeInfo[1] * 60 If $aSysTimeInfo[0] = 2 Then $timeAdj += $aSysTimeInfo[7] * 60 EndIf $aRet = DllCall("msvcrt.dll", "str:cdecl", "ctime", "int*", $iUnixTime + $timeAdj ) If @error Or Not $aRet[0] Then Return "" $aDate = StringSplit(StringTrimRight($aRet[0], 1), " ", 2) Return $aDate[4] & "/" & StringFormat("%.2d", _ArraySearch($aMonthNumberAbbrev, $aDate[1])) & "/" & $aDate[2] & " " & $aDate[3] EndFunc ;==>_GetUnixDate Enjoy!
      Realm
      Update: >Added some functionality and a suggestion from FireFox
    • Simpel
      By Simpel
      Hi, I created a gui with date field but formatted as time in HH:mm. It always shows "now-time". Even if I try to set it with GUICtrlSetData.
      #include <DateTimeConstants.au3> #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> Example() Func Example() GUICreate("My GUI get date", 200, 200, 800, 200) Local $idDate = GUICtrlCreateDate("", 20, 20, 100, 20, $DTS_TIMEFORMAT) ; to select a specific default format Local $sStyle = "HH:mm" ; Just display hours and minutes <<<<<<<<<<<<<<<<<<<<<<<<<<<< GUICtrlSendMsg($idDate, $DTM_SETFORMATW, 0, $sStyle) ConsoleWrite(GUICtrlRead($idDate) & @CRLF) GUICtrlSetData($idDate, "00:00") ConsoleWrite(GUICtrlRead($idDate) & @CRLF) GUISetState(@SW_SHOW) ; Loop until the user exits. While GUIGetMsg() <> $GUI_EVENT_CLOSE WEnd MsgBox($MB_SYSTEMMODAL, "Time", GUICtrlRead($idDate)) EndFunc ;==>Example How can I set the time field with another time and how can this field be set blank?
      Regards, Conrad
    • MyEarth
      By MyEarth
      Hi guys
      I need to get time of different city, London, Jerusalem, Mosca and many others. My starting script:
      #include <Date.au3> Local $iUTC, $iHour, $iMinute, $iSecond $iUTC = _Date_Time_GetSystemTime() $iHour = DllStructGetData($iUTC, "Hour") $iMinute = DllStructGetData($iUTC, "Minute") $iSecond = DllStructGetData($iUTC, "Second") ConsoleWrite("+UTC: " & $iHour & ":" & $iMinute & ":" & $iSecond & @CRLF) My idea was start from UTC time and then add-remove hours. But what about the DST, Daylight Savings Time? How i can know if in a country is active or not? There is an API? Example with _Date_Time_GetTimeZoneInformation it will give the current time zone settings and not for other time zone. I don't have understand if is possible or not 
      On the help i have found SystemTimeToTzSpecificLocalTime but i don't have understand how to use for other time zone...
      Thanks