Menghitung Lama Procedure/Function Dieksekusi

Untuk Mengetahui berapa lama waktu yang dibutuhkan untuk mengeksekusi suatu
procedure bisa kita gunakan function GetTickCount. Apa fungsi GetTickCuunt?
Baca sendiri helpnya ya, ini sudah saya copy-kan :

Untuk Mengetahui berapa lama waktu yang dibutuhkan untuk mengeksekusi suatu
procedure bisa kita gunakan function GetTickCount. Apa fungsi GetTickCuunt?
Baca sendiri helpnya ya, ini sudah saya copy-kan :

Retrieves the number of milliseconds that have elapsed since the system was started, up to 49.7 days.

Bagaimana cara menggunakannya?
Simple saja, yang harus kita lakukan hanya mencatat return value dari function GetTickCount sesaat sebalum procedure dieksekusi dan sesudahnya. Kemudian kita selisihkan hasilnya. Oya jangan lupa, hasil selisihnya adalah dalam satuan milliseconds , jika kita mengehendaki hailnya dalam satuan detik tinggal kita bagi dengan 1000.

Lebih jelasnya silahkan algoritma berikut ini

iAwal  := GetTickCount;
Eksekusi Procedure;
iAkhir := GetTickCount;

iSelisih := iAkhir - iAwal;
dWaktu := iSelisih / 1000;

OK, selamat mencoba !