Menampilkan Jam, Hari dan Tanggal pada Delphi 7

Menampilkan Jam, Hari dan Tanggal pada Delphi 7 - Hallo sahabat Zona Tiga, Pada Artikel yang anda baca kali ini dengan judul Menampilkan Jam, Hari dan Tanggal pada Delphi 7, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Delphi7, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Menampilkan Jam, Hari dan Tanggal pada Delphi 7

Berikut Cara Menampilkan Jam, Hari dan Tanggal di Delphi7

Tampilan form kurang lebih seperti gambar dibawah ini..

Keterangan:

-----------------------------------------------------------------------

ToollBox | Nama | Properties |

-----------------------------------------------------------------------

Label : Label1 caption = Jam : Menit : Detik

Label2 caption = Hari :

Label3 caption = Tanggal :

Label4 -

Label5 -

Label6 -

Timer : Timer1 Interval = 1000

-----------------------------------------------------------------------

klik 2 kali pada Timer1 dan ketikkan source code dibawah ini.

procedure TForm1.Timer1Timer(Sender: TObject);

var

ADate:TDateTime;

hari:array[1..7] of string;

begin

hari[1]:='Minggu';

hari[2]:='Senin';

hari[3]:='Selasa';

hari[4]:='Rabu';

hari[5]:='Kamis';

hari[6]:='Jumat';

hari[7]:='Sabtu';

ADate:=date;

label4.caption:=hari[DayofWeek(ADate)];

label5.caption:=DateToStr(Now);

label6.caption:=TimeToStr(Now);

end;

Dan ketika program dijalankan akan seperti gambar berikut.

Semoga bermanfaat.

Demikianlah Artikel Menampilkan Jam, Hari dan Tanggal pada Delphi 7

Sekianlah artikel Menampilkan Jam, Hari dan Tanggal pada Delphi 7 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Judul : Menampilkan Jam, Hari dan Tanggal pada Delphi 7
link : Menampilkan Jam, Hari dan Tanggal pada Delphi 7