Jump to content
Elzie

Test timer to exit gui

Recommended Posts

Elzie

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
Elzie

  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
Melba23

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
Elzie

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
Melba23

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
Elzie

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
Melba23

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
Elzie

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
Melba23

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
Elzie

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
Melba23

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

    • Jemboy
      By Jemboy
      Hi,
      Ones(some times twice) a month I get an e-mail with zip file, which has price updates from a supplier.
      I have to upload the file to an FTP to get it processed.
      When uploading the file, it will get "timestamped" with the time and date at which time the file was uploaded.
      Normally this is fine, because I mostly upload the file the same day.
      Sometimes it may take 1 or 2 days before I can upload the file.
      For historical purpose, I would like to have the file timestamped with the original date.
      I have tried using:  _FTP_Command ( $hFTPSession, "MFCT YYYYMMDDHHMMSS path") 
      however this command does not work or change the timestamp as I expected.
      Does anyone now a way how I can change the timestamp of a FTP-file?
    • Rskm
      By Rskm
      Hi, for a script of mine, I wish to keep a time frame on till how the program will work.. basically, I want the program to read the date and if the read date < 'a particular date', the program continues, else it exit. I don't want to read the time from the computer as the program can be fooled by resetting the pc time. is there a way to read time from internet - so that the user cannot fool the program by date reset? thanks
    • Shedunn
      By Shedunn
      I've been looking through some different functions(not sure if that's the right word) to get the Date and time and I can't find one that doesn't include "/ " or ":" in what is returned.

      I'm trying to create a file name with this format "QuickConfig_MMDDYYYY_HHMM"  (doesn't matter if 24 or 12hr format)
      #include <Date.au3> Func _SaveConfig MouseClick('primary',155, 46, 1, 0) ;clicks save as WinWait('Save bluePRINT Configuration As...','', 4) MouseClick('primary',632, 47, 1, 0) ;clicks the file path bar $Documents = @MyDocumentsDir $FilePath = $Documents & '\BP3 Configs' Send($FilePath) Send('{ENTER}') MouseClick('primary',166, 580, 1, 0) ;clicks file name bar $FileName = 'QuickConfig_' & _NowDate & '_' & _NowTime Send($FileName) Send('{ENTER}') EndFunc  
       
      I'm wondering if there is a function somewhere to do this?
    • 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
×