Delphi for delphier

DateTime – Konversi Millisecond ke DateTime

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori DateTime
   
Judul Konversi Millisecond ke DateTime
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi http://delphi.about.com/od/adptips2005/qt/millisectotime.htm
   
Tujuan
Mengajarkan kepada para pemula untuk mengubah konversi millisecond ke DateTime.
   
Overview
Artikel ini membahas tentang konversi waktu dari millisecond ke format DateTime. Didalam artikel ini juga secara tidak langsung anda diberikan informasi mengenai beberapa konstanta penting dalam unit waktu.
Apabila anda mengalami kesulitan dalam memahami artikel ini, langsung saja tanyakan permasalahan anda tersebut melalui email atau YM yang sudah ditunjukkan diatas.
Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat.
   
Tambahan
Didalam artikel ini anda mendapatkan beberapa tambahan pengetahuan terutama hal yang berkaitan dengan waktu. Tambahan informasi ini didapatkan dari unit library SysUtils.
Berikut ini informasi kontanta penting yang perlu anda ketahui:
HoursPerDay
=
24;
MinsPerHour
=
60;
SecsPerMin
=
60;
MSecsPerSec
=
1000;
MinsPerDay
=
HoursPerDay * MinsPerHour;
SecsPerDay
=
MinsPerDay * SecsPerMin;
MSecsPerDay
=
SecsPerDay * MSecsPerSec;
   
  Fungsi konversi :
   
 
function MSecToTime(mSec: Int64): string;
var
dt : TDateTime;
begin

dt
:=
mSec / MSecsPerSec / SecsPerDay;
Result
:=
Format(‘%d days, %s’, [Trunc(dt),
FormatDateTime(‘hh:nn:ss.z’, Frac(dt))]) ;

end;

   
 
Penjelasan fungsi diatas memberikan informasi kepada kita, bahwa fungsi tersebut menerima parameter inputan mSec dalam satuan Millisecond. Kemudian nilai dari parameter tersebut dikonversi kedalam format DateTime.
Untuk hasil kembali dari fungsi tersebut adalah bertipe string.
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1

Buat program aplikasi baru.

   
Langkah 2

Tambahkan beberapa object kedalam Form

   
  Button1: TButton;
Label1: TLabel;
Bevel1: TBevel;
Button2: TButton;
   

Langkah 3

Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini

   
 
datetime0001.jpg
   

Langkah 4

Sekarang anda lanjutkan dengan menuliskan kode program untuk fungsi konveri dari millisecond ke DateTime. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.

   
 
function MSecToTime(mSec: Int64): string;
var
dt : TDateTime;
begin

dt
:=
mSec / MSecsPerSec / SecsPerDay;
Result
:=
Format(‘%d days, %s’, [Trunc(dt),
FormatDateTime(‘hh:nn:ss.z’, Frac(dt))]) ;

end;

   

Langkah 5

Silahkan anda klik 2x tombol Proses. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

   
 
procedureTObject);
var
// deklarasi variabel
startTick, endTick : Int64;
begin
// mendapatkan milidetik awal
startTick := GetTickCount;
// menahan aplikasi
Sleep(10000);
// mendapatkan milidetik akhir
endTick := GetTickCount;
// menampilkan hasil konversi
ShowMessage(MSecToTime(endTick – startTick)) ;
end;
   

Langkah 6

Silahkan anda compile. Tekan tombol Ctrl + F9.

   
 
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
   

Langkah 7

Silahkan anda tekan tombol Proses

   
 
datetime0002.jpg
   

Langkah 8

Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
   
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

Blog di WordPress.com.

%d blogger menyukai ini: