Data commit

Task/Time-a-function/AutoHotkey/time-a-function-1.ahk

@@ -0,0 +1,15 @@
+MsgBox % time("fx")
+Return
+
+fx()
+{
+  Sleep, 1000
+}
+
+time(function, parameter=0)
+{
+  SetBatchLines -1  ; don't sleep for other green threads
+  StartTime := A_TickCount
+  %function%(parameter)
+  Return ElapsedTime := A_TickCount - StartTime . " milliseconds"
+}

Task/Time-a-function/AutoHotkey/time-a-function-2.ahk

@@ -0,0 +1,16 @@
+MsgBox, % TimeFunction("fx")
+
+TimeFunction(Function, Parameters*) {
+	SetBatchLines, -1						; SetBatchLines sets the speed of which every new line of coe is run.
+	DllCall("QueryPerformanceCounter", "Int64*", CounterBefore)	; Start the counter.
+	DllCall("QueryPerformanceFrequency", "Int64*", Freq)		; Get the frequency of the counter.
+	%Function%(Parameters*)						; Call the function with it's parameters.
+	DllCall("QueryPerformanceCounter", "Int64*", CounterAfter)	; End the counter.
+
+	; Calculate the speed of which it counted.
+	Return, (((CounterAfter - CounterBefore) / Freq) * 1000) . " milliseconds."
+}
+
+fx() {
+	Sleep, 1000
+}