untuk mengetahui selisih hari sebelumnya dengan sekarang dalam borland delphi sangat mudah kita lakuakan, sorce kode yang kita gunakan tidak terlalu banyak serta cuma membutuhkan beberapa komponenen. (maaf ini saya posting untuk pemula saja, jika ada diantara teman-teman yang sudah mahir dan menganggap ini jadul silahkan ditinggalkan saja, tapi kalau ingin membaca juga gak apa-apa.) oke kita langsung saja.
1. buka borland delphi teman-teman melalui start=> programf files=>borland delphi
2. buat form baru
3. masukkan beberapa komponen seperti:
a. 3 edit box (propertiesnya biarkan saja setandar)
b. 3 label (ganti bagian propertiesnya pada bagian caption seperti gambar)
c. 2 button (ganti bagian propertiesnya pada bagian caption seperti gambar)
d. 2 datetimepicker (propertiesnya biarkan saja setandar)
screenshoot program
untuk sorce codenya:
- pada datetimepicker1 double klick onchange pada tab even di properties dan masukkan kode dibawah
procedure TForm1.DateTimePicker1Change(Sender: TObject); begin edit1.Text:=datetostr(datetimepicker1.Date);
end;
- pada datetimepicker1 double klick onchange pada tab even di properties pada datetimepicker2 double klick dan masukkan kode dibawah
procedure TForm1.DateTimePicker2Change(Sender: TObject); begin edit2.Text:=datetostr(datetimepicker2.Date);
end;
- pada button lihat selisih tambahkan code dibawah
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = '') or (edit2.Text = '') then
begin
showmessage('Jangan Ada Kekosongan di antara kita');
edit1.Clear;
edit2.Clear;
end
else
begin
try
edit3.Text:= 'Selisih Hari Kedua Tanggal tsb adalah '+ floattostr(strtodate(edit1.Text)-strtodate(edit2.Text))+' Hari';
except
exit;
end;
end;
end;
- pada button keluar masukkan source kode dibawah procedure
TForm1.Button1Click(Sender: TObject);
begin
close;
end;
SELAMAT MENCOBA...
1. buka borland delphi teman-teman melalui start=> programf files=>borland delphi
2. buat form baru
3. masukkan beberapa komponen seperti:
a. 3 edit box (propertiesnya biarkan saja setandar)
b. 3 label (ganti bagian propertiesnya pada bagian caption seperti gambar)
c. 2 button (ganti bagian propertiesnya pada bagian caption seperti gambar)
d. 2 datetimepicker (propertiesnya biarkan saja setandar)
screenshoot program
untuk sorce codenya:
- pada datetimepicker1 double klick onchange pada tab even di properties dan masukkan kode dibawah
procedure TForm1.DateTimePicker1Change(Sender: TObject); begin edit1.Text:=datetostr(datetimepicker1.Date);
end;
- pada datetimepicker1 double klick onchange pada tab even di properties pada datetimepicker2 double klick dan masukkan kode dibawah
procedure TForm1.DateTimePicker2Change(Sender: TObject); begin edit2.Text:=datetostr(datetimepicker2.Date);
end;
- pada button lihat selisih tambahkan code dibawah
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = '') or (edit2.Text = '') then
begin
showmessage('Jangan Ada Kekosongan di antara kita');
edit1.Clear;
edit2.Clear;
end
else
begin
try
edit3.Text:= 'Selisih Hari Kedua Tanggal tsb adalah '+ floattostr(strtodate(edit1.Text)-strtodate(edit2.Text))+' Hari';
except
exit;
end;
end;
end;
- pada button keluar masukkan source kode dibawah procedure
TForm1.Button1Click(Sender: TObject);
begin
close;
end;
SELAMAT MENCOBA...
0 komentar:
Posting Komentar