all tasks

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,14 @@
+MsgBox % time("fx")
+
+time(function, parameter=0){
+	SetBatchLines -1
+	DllCall("QueryPerformanceCounter", "Int64*", CounterBefore)
+	DllCall("QueryPerformanceFrequency", "Int64*", Freq)
+	%function%(parameter)
+	DllCall("QueryPerformanceCounter", "Int64*", CounterAfter)
+	return (CounterAfter-CounterBefore)/Freq * 1000 " milliseconds"
+}
+
+fx(){
+	Sleep 1000
+}