Selisih 2 Tanggal dengan Delphi

gambarnya kaya gini gan,postingan kali ini bukan termasuk tutorial,ini merupakan draft program kecil2an delphi ane di kampus buat dikumpulkan ,namanya program untuk menghitung selisih dua tanggal yang berbeda. untuk gambarnya bisa dilihat saja gan.

cara membuatnya sangat mudah,kita hanya cukup

buat form dengan penampakan seperti ini :

dan bahan2nya adalah:

untuk komponen datetimepicker berada di pallete win32
ditunjukan pada gambar yang paling kanan,kemudian pada object inspector,beri nilai kind = dtkDate pada propertiesnya

dan komponen statictext berada pallete additional

kemudian beri event onchange pada kedua datetimepicker tersebut,kira-kira seperti ini :

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
edit1.Text:=datetostr(datetimepicker1.Date);
end;

procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
edit2.Text:=datetostr(datetimepicker2.Date);
end;

kemudian pada bitbtn beri event onclick dan ketikan rumus ini :

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
statictext1.Caption:= 'selisih dari kedua tanggal adalah = '+
floattostr(strtodate(edit1.Text)-strtodate(edit2.Text))+' hari';
except
exit;
end;
end;
end;

silahkan dicoba dan jalankan

Posted in: Delphi