Beranda > Tanggal > Cara memilih tanggal yang jatuh pada hari tertentu

Cara memilih tanggal yang jatuh pada hari tertentu

Baris kode yang akan kita bahas kali ini cukup unik. Karena procedure berikut ini akan menghasilkan sebuah daftar tanggal tanggal yang dilalui oleh hari tertentu. Berikut ini langkah-langkahnya.

Pertama-tama kita siapkan aplikasi baru dengan sebuah ListBox, Button, Edit, label,  dan DateTimePicker, yang kira-kira formnya akan seperti ini.

Gbr. Form Daftar hari

Kemudian tulis kode dibawah ini.

implementation

{$R *.dfm}

Uses DateUtils ;

Procedure PilihHariDlmBulan ( NmHari : String ; Bulan : TDateTime ; List : TStrings );

function  NamaHari( Tanggal : TDAteTime ): String ;

var

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’;

Result:=Hari[DayOfWeek(Tanggal)];

end;

var

hari, jmlHari : integer ;

s : string ;

Tahun, iBulan, iHari : Word ;

begin

decodeDate(Bulan, Tahun, ibulan, ihari);

JmlHari:=DaysInAMonth(Tahun, iBulan);

for hari:=1 to JmlHari do

begin

s:=IntToStr(hari)+’/’+IntToStr(ibulan)+’/’+IntToStr(tahun);

// disini kita akan menggunakan fungsi Namahari

if (Uppercase(NamaHAri(StrToDate(s)))= Uppercase(NmHAri)) then

list.Add(s) else continue;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

PIlihHariDlmBulan(Edit1.Text, DateTimePicker1.Date, Listbox1.Items);

end;

Sekarang coba anda jalankan program dan isikan nama hari pada Edit1 lalu pilih tanggal pada DateTimePicker1 setelah itu tekanlah tombol button1, maka pada listbox1 anda akan mendapatkan daftar tanggal-tanggal yang dilalui hari tertentu dan pada bulan tertentu yang sudah diisikan pada Edit1.

Gbr. Daftar tanggal yang dilalui hari tertentu dalam sebulan

Lalu bagaimana apabila kita ingin melihat daftar hari dalam satu tahun ?. Untuk melihat daftar hari dalam setahun anda harus menambahkan procedure baru setelah Procedure PilihHariDlmBulan. Berikut ini kode lengkapnya.

Procedure PilihHariDlmBulan ( NmHari : String ; Bulan : TDateTime ; List : TStrings );

Var

Bla…bla…bla…

// var nya sama

begin

Bla…bla…bla…

End;

Procedure PilihHariDlmTAhun ( NmHari : String ; Tahun : word ; List : TStrings );

var

Bulan : Tdatetime ;

i : Integer ;

begin

List.Clear;

for i:=1 to 12 do

begin

Bulan:=StrToDAte(‘1/’+IntToStr(i)+’/’+IntTOStr(tahun));

PilihHariDlmBulan( NmHari, Bulan, list);

end;

end;

contoh penggunaanya adalah sebagai berikut.

procedure TForm1.Button1Click(Sender: TObject);

begin

PIlihHariDlmTahun(Edit1.text, 2009, Listbox1.Items);

end;

hari dalam tahun

hari dalam tahun

Gbr. Daftar tanggal yang jatuh pada hari sabtu dalam satu tahun

  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: