How can I insert regular time? Topic is solved

[LAPIII]

My script only inserts military time:

Code: Select all

!T
FormatTime, Time,, h:mm 
SendInput %CurrentDateTime%
Return

Could I also insert AM, PM, and EST.

[flyingDman]

Use the time formats provide here: https://www.autohotkey.com/docs/commands/FormatTime.htm

To determine the UTC offset (and the timezone) use this:

Code: Select all

tmdif:=a_now
tmdif+=-a_nowUTC
msgbox % tmdif

[amateur+]

@LAPIII, I think, your script inserts nothing because there are two fatal mistakes in it:

[amateur+]

Code: Select all

!T::
CurrentDateTime := A_NowUTC
CurrentDateTime += -5, h
FormatTime, CurrentDateTimeESTshort, % CurrentDateTime, h:mm tt EST
SendInput %CurrentDateTimeESTshort%
Return

[TLM]

Here's a trick to get your abbreviated standard name:

Code: Select all

For Item in ComObjGet( "winmgmts:\\.\root\CIMV2" ).ExecQuery( "Select * from Win32_TimeZone" )
    StandardName := Item.StandardName

For Each, Word in ( StrSplit( StandardName, " " ), StandardAbrvName := "" )
	StandardAbrvName .= SubStr( Word, 1, 1 )

FormatTime, CurrentDateTime, A_Now, % "h:mm tt " StandardAbrvName

SendInput %CurrentDateTime%

[amateur+]

Code: Select all

FormatTime, CurrentDateTime, A_Now, % "h:mm tt " StandardAbrvName

Btw, it is better to put %-sign before A_Now, b/c your great script doesn't fail in the end for only one reason: empty string or string of invalid time format are considered as %A_Now%.
Although it doesn't work for Russian locale.

[flyingDman]

@TLM Nice, thank you!