Tips Trik Delphi - Hitung Selisih Tanggal

Hitung Selisih Tanggal

Posted on September 26, 2010, Filed in: Tips Trik Delphi

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;

Output:

Output - Selisih Tanggal

Download
Source Code Delphi - Hitung Selisih Tanggal
File: selisih_tanggal.zip
Hits: 354

Related content:

Rating: 5.0/5 (1 vote cast)

Rating: 0 (from 0 votes)