Membuat Program Tanggal Bulan dan Tahun pada Delphi

Membuat Program Tanggal Bulan dan Tahun

Aplikasi ini ditujukan untuk pembelajaran mengenai pembuatan tanggal yang diinput secara DropDown menu pada sebuah aplikasi yang sebenarnya sering kalian jumpai pada setiap aplikasi. Kali ini saya akan coba share cara pembuatannya yah.. Semoga kita bisa belajar bersama melalui blog SOURCE CODE ini.

Mari kita ikuti step by step pembuatan program tanggal bulan dan tahun berikut ini.

Pertama klik file-new-application pada Delphi kemudian lanjutkan dengan membuat desain form seperti gambar di bawah

Tabel Properties Componen pada Label dan Button

1	Label1	Caption	TANGGAL
2	Labe2	Caption	TANGGAL SEKARANG
3	Labe3	Caption	BULAN SEKARAN
4	Labe4	Caption	TAHUN SEKARANG
5	Button1	Caption	PROSES

Untuk memasukan TextEdit,Label,Button & Timepicker caranya sama seperti pembuatan penggajian karyawan. Dan untuk memilih Component DateTimePicker pada bagian pallete Component pilih Tab Win32 pada menu pallete component klik DateTimePicker atau pilih icon seperti gambar dibawah yang di lingkar merah.untuk lebih jelasnya lihat gambar di bawah yang di beri garis lingkaran merah.

Sesudah anda membuat desain form seperti pada gambar di atas, Selanjutnya Merubah Tampilan Warna Background pada Form Dialog Untuk mengganti warna background pilih properties pada pallete atau seperti pada gambar di bawah.

bebas anda mau pilih warna apa saja tergantung selera anda sendiri.dan hasil akhir yang saya buat seperti pada gambar di bawah.

Coding Tombol

Langkah terakhir yaitu memasukan Coding atau pengisian sorce code Program pada tombol.

Tombol PROSES

Pada bagian uses di coding PROSES di tambah DateUtils untuk menampilkan data tanggal,bulan dan tahun pada DateTimePicker

unit Date;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DateUtils, StdCtrls, ComCtrls;

procedure TForm1.Button1Click(Sender: TObject);

VAR

TANGGAL:TDate;

TGLS:SHORTINT;

BLNS:SHORTINT;

THNS:INTEGER;

begin

{T0}

TANGGAL:=DATETIMEPICKER1.Date;

{AKSI}

TGLS:=DAYOF(TANGGAL);

BLNS:=MONTHOF(TANGGAL);

THNS:=YEAROF(TANGGAL);

{T1}

EDIT1.Text:=INTTOSTR(TGLS);

EDIT2.Text:=INTTOSTR(BLNS);

EDIT3.Text:=INTTOSTR(THNS);

end;

end.

Sekarang coba Runing Programnya dengan menekan tombol F9 pada keyboard. Apabila tidak ada kesalahan maka anda berhasil membuat aflikasi untuk menampilkan tanggal,bulan & Tahun.

Tentunya mudah kan ? . Tidak ada yang sulit jika Kemauan sudah angkat bicara. hehehe
semangat trus yah mas mbak smua..

Membuat Program Tanggal Bulan dan Tahun pada Delphi