Selisih 2 Tanggal dengan Delphi #74

andrypein.net : 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 2 tanggal yang berbeda.

Untuk gambarnya bisa dilihat saja gan.

cCara 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 dan sekian selisih 2 tanggal dengan delphi nya goodluck havefun.

*AFK