Cara Membuat Konversi Tanggal Dengan Delphi 7

Kangakbar.com - Konversi tanggal adalah suatu aplikasi yang memungkinkan kita mencari hari dengan tanggal tertentu. Prinsip kerjanya, kita memasukan tanggal (Hari, bulan, dan tahun) ke dalam aplikasi tersebut dan kemudian jika tombol cari di tekan maka akan muncul hari pada tanggal tersebut.

Konversi Tanggal - Delphi 7

Aplikasi sederhana ini juga memungkinkan dan juga dapat mengingatkan kita akan hari ulang tahun kita ataupun teman. Contohnya saya lahir pada tanggal 5 September 1999 maka ketika saya tekan "Cari" munculah hari pada tanggal kelahiran saya yaitu minggu.

Sebenarnya ini adalah tugas sekolah saya yang iseng iseng saya ubah tata letaknya dan juga di ubah sedikit SC (Source Code) menjadi lebih mudah dipahami.

Bagaimana Cara membuatnya ?

untuk membuat aplikasi ini saya rasa cukup mudah jika anda sudah memahami konsep dan prinsip kerja dari aplikasi ini. tapi untuk lebih lanjut mari kita praktekkan langsung dengan menggunakan Delphi 7.

1. Buka Aplikasi Delphi 7 (wajib Run As Administrator)

2. Masukan komponen komponen yang diperlukan. seperti

• 2 Button (Button Cari dan Hapus)
• 3 Label (Hari, Bulan, Tahun)
• 4 Edit

3. Atur Tata Letaknya

Tata Letak Konversi Tanggal

4. Klik 2x Pada button Cari dan masukan kode :

• Diatas Begin :

type x = string[7];
const
faktorbln:array[1..12] of byte=(0,3,3,6,1,4,6,2,5,0,3,5);
hari:array[0..6] of x=('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu');
var
hr : string;
nama : string[225];
j1,j2,j3,j4 : integer;
tanggal,bulan,tahun : integer;

• Dibawah Begin

tanggal:=strtoint(edit1.Text);

  bulan:=strtoint(edit2.Text);

  tahun:=strtoint(edit3.Text);

  if tahun > 1900 then

  tahun:= tahun - 1900;

  j1:= trunc(tahun * 365.25);

  j2:= j1 + faktorbln[bulan];

  if (tahun/4=int(tahun/4)) and (bulan <3) then

  j2:= j2-1;

  j3:= j2 + tanggal;

  j4:= trunc(frac (j3/7) * 10);

  hr:= hari[j4];

  edit4.Text:= hr;

• Sehingga, Kodenya menjadi :

procedure TForm1.Button1Click(Sender: TObject);

type x = string[7];

const

faktorbln:array[1..12] of byte=(0,3,3,6,1,4,6,2,5,0,3,5);

hari:array[0..6] of x=('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu');

var

hr : string;

nama : string[225];

j1,j2,j3,j4 : integer;

tanggal,bulan,tahun : integer;

begin

  tanggal:=strtoint(edit1.Text);

  bulan:=strtoint(edit2.Text);

  tahun:=strtoint(edit3.Text);

  if tahun > 1900 then

  tahun:= tahun - 1900;

  j1:= trunc(tahun * 365.25);

  j2:= j1 + faktorbln[bulan];

  if (tahun/4=int(tahun/4)) and (bulan <3) then

  j2:= j2-1;

  j3:= j2 + tanggal;

  j4:= trunc(frac (j3/7) * 10);

  hr:= hari[j4];

  edit4.Text:= hr;

end;

5. Klik 2x pada button Hapus

6. Masukan Kode :

• dibawah begin :

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit1.SetFocus;

• Sehingga Menjadi :

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit1.SetFocus;

end;

7. Klik File

8. Save As Project

9. Simpam > Simpan

10. Coba Run Projek / tekan tombol F9

Hasil :

Hasil Dari Projek Konversi Tanggal

Selamat, Sekarang anda telah berhasil membuat program aplikasi Konversi tanggal. Jika terjadi kesalahan kode program atau ada yang ingin menambahkan, mohon kirim ke kolom komentar. Terimakasih.