timeGap() [UDF]

[BoBo]

Ermittle um welchen betrag die lokale systemzeit zu der eines ntp-servers differiert.
Das format entspricht 1:1 dem, was vom ntp-server retourniert wird, wäre also ggf zur weiteren verwendung noch mittels FormatTime umzuwursten.

Code: Select all

#SingleInstance, Force
MsgBox % TimeGap("us.pool.ntp.org")					        ; zeitdifferenz lokal vs zeitserver abfragen (ausgabe in sekunden)
MsgBox % ClipBoard

TimeGap(ntp="de.pool.ntp.org"){
		RunWait,% ComSpec " /c w32tm /stripchart /computer:" ntp " /period:1 /dataonly /samples:1 | clip",, Hide ; abfrage wird im clipboard abgelegt
		array := StrSplit(ClipBoard,"`n")					; zerlegen der retournierten antwort nach zeilen
		Return % SubStr(array[4], 10)		                ; zeitdifferenz/gap ...		
		}