Home > pengurangan tanggal > pengurangan tanggal

pengurangan tanggal

January 5, 2012

untuk mencari perbandingan antara parameter awal dan parameter akhir kita gunakan fungsi DaysBetween dari DateUtils.

uses dateutils,…

yang harus persiapkan :

  1. komponen datetimepikcer sebanyak dua
  2. label sebanyak dua untuk keterangan
  3. satu button untuk proses

ubah properties tiap komponen sesuai dengan gambar berikut :

double klik pada button dan ketikan perintah berikut :

showmessage(inttostr(DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date)));

lengkapnya seperti ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date)));
end;

jalankan aplikasi dengan menekan F9 pada keyboard

________selamat mencoba_________

Categories: pengurangan tanggal Tags:
%d bloggers like this: