Read more
Penjumlahan tanggal dengan delphi terkadang diperlukan saat seseorang akan menentukan batas akhir pengembalian atas peminjaman sesuatu, semisal buku, CD video game, playstation, dan sebagai nya
semisal tanggal pinjam adalah 08/06/2014 dan batas pengembalian adalah 6 hari maka tanggal kembalinya adalah 14/06/2014
source code nya adalah sebagai berikut (pada event on click button1)
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=datetostr(datetimepicker1.Date+strtoint(edit1.Text));
end;
untuk download program silakan KLIK DI SINI
semisal tanggal pinjam adalah 08/06/2014 dan batas pengembalian adalah 6 hari maka tanggal kembalinya adalah 14/06/2014
source code nya adalah sebagai berikut (pada event on click button1)
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=datetostr(datetimepicker1.Date+strtoint(edit1.Text));
end;
untuk download program silakan KLIK DI SINI
Contact Person : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
FB : Taufik Adi Sanjaya
PIN BBM 5983E244
FB : Taufik Adi Sanjaya
Alamat : Jalan Imogiri Timur KM 11,
Blawong 1 , RT 01, Trimulyo, Jetis, Bantul 55781.
Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com




1 Reviews
tengkyu broh
ReplyDeleteSilakan dikomentari