Date Time | Tutorial Delphi | Suatu aplikasi adakalanya membutuhkan tampilan tanggal dan jam pada form nya. Untuk menampilkannya, kita bisa menggunakan funsi dasar pada delphi 7. TimeToStr untuk menampilkan jam dan DateToStr untuk data tanggal. Yaaa, ini sedikit sharing kecil untuk contoh programnya :
Form yang dibuat seperti ini…
Komponen yang digunakan adalah Edit1, Edit2, dan Button1. Kemudian dimasukkan code program ini pada event OnClick dari komponen Button1 :
procedure TForm1.Button1Click(Sender: TObject);
begin
dateseparator:='-';
shortdateformat:='dd/mm/yyyy';
edit1.Text:=datetostr(date);
edit2.Text:=timetostr(time);
end;
Dengan kode program tersebut, ketika di running makatanggal dan jam belum tampil pada Edit1 dan Edit2. Tanggal dan jam akan tampil setelah button1 diklik, dengan hasil sebaga berikut….
Yaaa…itu hanya sedikit sharing pengalaman, heeeee…Cuma sederhana saja,,,maap yaa…
Salam damai, senajan kenthir nanging kebak pikir
Semoga bermanfaat….
1 komentar:
Makasih atas infonya
Posting Komentar