Menghitung Lama Procedure di eksekusi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Untuk mengetahui berapa lama waktu yang dibutuhkan untuk melakukan proses atau mengeksekusi suatu procedure,nah kita bisa menggunakan fungsi GetTickCount, Sebenarnya saya mendapatkan ilmu ini dari Blog tetangga. fngsi dari GetTickCount kurang lebih adalah Mengambil jumlah milidetik yang telah berlalu sejak sistem dimulai, hingga 49,7 hari.


Cara penggunakannya simple saja, yang harus kita lakukan hanya mencatat return value dari function GetTickCount sesaat sebalum procedure dieksekusi dan sesudahnya. Kemudian kita selisihkan hasilnya. dan jangan lupa, hasil selisihnya adalah dalam satuan milliseconds , jika kita ingin dalam satuan detik tinggal kita bagi dengan 1000.
Ini contohcodingnya : 

procedure TForm1.B_tampilClick(Sender: TObject); 
var  iAwal,iAkhir,iSelisih,dWaktu:Double; // untuk menghitung Waktu Eksekusi 
begin // untuk menghitung Waktu Eksekusi 
iAwal  := GetTickCount; 
AmbilData; // << Merupakan Procedure 
ShowData;  // << Merupakan Procedure 
iAkhir := GetTickCount; 
iSelisih := iAkhir - iAwal; 
dWaktu := iSelisih / 1000; 
MessageDlg('File Sudah Ditampilkan dalam waktu : '+chr(10)+FloatToStr(dwaktu)+' Detik',mtInformation,[mbOK],0) 
end;

Screnshoot :

Menarik bukan ? semonga bermanfaat...