## decimal time ('metric time')

Post your working scripts, libraries and tools
jeeswg
Posts: 6902
Joined: 19 Dec 2016, 01:58
Location: UK

### decimal time ('metric time')

Code: Select all

``````;==================================================

;display decimal time ('metric time') and 24-hour time

;Decimal time - Wikipedia
;https://en.wikipedia.org/wiki/Decimal_time
;Decimal time is the representation of the time of day using units which are decimally related.
;This term is often used specifically to refer to the time system used in France for a few years beginning in 1792 during the French Revolution,
;which divided the day into 10 decimal hours, each decimal hour into 100 decimal minutes and each decimal minute into 100 decimal seconds,
;as opposed to the more familiar UTC time standard, which divides the day into 24 hours, each hour into 60 minutes and each minute into 60 seconds.

;Metric time - Wikipedia
;https://en.wikipedia.org/wiki/Metric_time
;Metric time is the measure of time intervals using the metric system.
;The modern SI system defines the second as the base unit of time, and forms multiples and submultiples with metric prefixes such as kiloseconds and milliseconds.
;Other units of time: minute, hour, and day, are accepted for use with SI, but are not part of it.
;Metric time is a measure of time intervals, while decimal time is a means of recording time of day.

;[clip from The Simpsons: They Saved Lisa's Brain]
;['decimal time' rather than 'metric time']
;Metric time - YouTube

;n seconds = n * (125/108) decimal seconds
;1 day = 86400 seconds = 100000 decimal seconds
;1 hour = 3600 seconds = 4166.666667 decimal seconds
;1 minute = 60 seconds = 69.444444 decimal seconds
;1 second = 1.157407 decimal seconds

;n decimal seconds = n * 0.864 seconds
;1 day = 100000 decimal seconds = 86400 seconds
;1 decimal hour = 10000 decimal seconds = 8640 seconds = 2.4 hours = 2 hours 24 minutes
;1 decimal minute = 100 decimal seconds = 86.4 seconds = 1.44 minutes = 1 minute 26.4 seconds
;1 decimal second = 0.864 seconds

;==================================================

#Persistent
ListLines, Off

;display decimal time ('metric time') and 24-hour time
;options for Progress command:
vOptProgress := "zh0 b1 c0 fs18 x1000 y100 w150" ;border + left-aligned text
vOpt := "DT"
;vOpt := "DTU"
;vOpt := "TD"
;vOpt := "TDU"
oFunc := Func("DisplayDecimalTime").Bind(vOptProgress, vOpt)
SetTimer, % oFunc, 10
return

;==================================================

;vOpt: (blank): local time
;vOpt: U: UTC time
;vOpt: D: display decimal time
;vOpt: T: display 24-hour time
;note: the order of D/T will be reflected in the display
DisplayDecimalTime(vOptProgress, vOpt:="DT")
{
local
static vIsInit := 0, hCtl := 0, vTextLast := ""
static vScriptPID := DllCall("kernel32\GetCurrentProcessId", "UInt")
vText := ""
Loop Parse, vOpt
{
if (A_LoopField = "D")
{
vTemp := InStr(vOpt, "U") ? "U" : ""
vText .= DecimalTimeNow(vTemp) "`r`n"
}
if (A_LoopField = "T")
{
vDate := InStr(vOpt, "U") ? A_NowUTC : A_Now
FormatTime, vDate, % vDate, HH:mm:ss
vText .= vDate "`r`n"
}
}
vText := RTrim(vText, "`r`n")
if !vIsInit
{
Progress, % vOptProgress, % vText
vIsInit := 1
vTextLast := vText
return
}
if !hCtl
ControlGet, hCtl, Hwnd,, Static1, % "ahk_class AutoHotkey2 ahk_pid " vScriptPID
if !(vTextLast = vText)
ControlSetText,, % vText, % "ahk_id " hCtl
vTextLast := vText
}

;==================================================

DecimalTimeNow(vOpt:="")
{
local
VarSetCapacity(SYSTEMTIME, 16, 0)
if InStr(vOpt, "U") ;UTC
DllCall("kernel32\GetSystemTime", "Ptr",&SYSTEMTIME)
else ;local
DllCall("kernel32\GetLocalTime", "Ptr",&SYSTEMTIME)
vIntervals := 0
DllCall("kernel32\SystemTimeToFileTime", "Ptr",&SYSTEMTIME, "Int64*",vIntervals)

vMSec := Floor(vIntervals/10000) ;milliseconds since the year 1601
vMSec := Mod(vMSec, 86400000) ;milliseconds so far today
;vDecimalSec := Floor((vMSec/86400000) * 100000) ;equivalent to line below
vDecimalSec := Floor(vMSec/864)
vDecimalSec := Format("{:06}", vDecimalSec)
return SubStr(vDecimalSec, 1, 2) ":" SubStr(vDecimalSec, 3, 2) ":" SubStr(vDecimalSec, 5, 2)
}

;==================================================
``````
homepage | tutorials | wish list | fun threads | donate
WARNING: copy your posts/messages before hitting Submit as you may lose them due to CAPTCHA
just me
Posts: 8600
Joined: 02 Oct 2013, 08:51
Location: Germany

### Re: decimal time ('metric time')

Code: Select all

``````#NoEnv
Now := A_Now
MsgBox, 0, Metric Time, % Now . " -> " MetricTime(Now)
ExitApp

MetricTime(DateTime) { ; YYYYMMDDHH24MISS time stamp
Seconds := DateTime
Seconds -= % (Date := SubStr(DateTime, 1, 8)), S
Seconds := Round(Seconds * 100000 / 86400)
HH := Seconds // 10000
Seconds -= HH * 10000
MM := Seconds // 100
Seconds -= MM * 100
SS := Seconds
Return Format(Date . "{:02}{:02}{:02}", HH, MM, SS)
}``````