umur

Menghitung Usia/Umur dengan Delphi

Last Updated on 2 February 2013 By tommy Leave a Comment

Buat design aplikasinya seperti gambar dibawah ini

2 buah TLabel
1 buah TButton
1 buah datetimepicker
1 buah Tedit

klik dua kali pada tombol hitung, lalu masukkan script

var
umur, tl, ts: Integer;
begin
tl := Yearof(Now);
ts := YearOf(DateTimePicker1.Date);
umur := tl -ts;
edit2.Text := IntToStr(umur);

klik dua kali pada form, tambahkan script dibawah ini

edit2.clear

Jalankan aplikasi diatas dengan menekan tombol F9 di keyboard