Hitung Selisih Tanggal

Cara menghitung beda hari pada tanggal.

Deklarasi fungsi:

function SelisihTanggal(TglOld,TglNew: TDate): Integer;
begin
  Result:= Trunc(TglNew - TglOld);
end;

Contoh implementasi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= IntToStr(SelisihTanggal(DateTimePicker1.Date, DateTimePicker2.Date));
end;