Hitung Umur atau Selisih Tanggal dengan Aplikasi Delphi

Hitung Umur atau Selisih Tanggal dengan Aplikasi Delphi.
Prosedur ini dapat digunakan untuk menghitung umur ataupun untuk menghitung selisih tanggal diantara dua buah tanggal.


Tambahkan dalam uses  
DateUtils

Tambah variabel berikut
var
    iThn, iBln, iHari: Word;

implementation

Tambahkan prosedur berikut
procedure umur(ThnLama, ThnBaru:TDate);
begin
        iThn:=YearsBetween(ThnBaru, ThnLama);
        if (DayOf(ThnBaru) = DayOf(ThnLama))
      and (MonthOf(ThnBaru) = MonthOf(ThnLama))
          and (YearOf(ThnLama) <> YearOf(ThnBaru))
        then inc(iThn);

        ThnLama:=IncYear(ThnLama, iThn);
        iBln:=MonthsBetween(ThnBaru, ThnLama);
        ThnLama:=IncMonth(ThnLama, iBln);
        iHari:=DaysBetween(ThnBaru, ThnLama);
end;

Penggunaan prosedur umur
//hitung umur
        sTgl := DTNow.date;  // tgl sekarang
        LTgl := DTTglLhr.Date; //tgl lahir
        umur(LTgl, sTgl);  //prosedur hitung umur

//hasil hitung umur
//iThn = umur tahun | iBln = umur bulan | iHari = umur hari
Label1.Caption :=IntToStr(iThn)+' Tahun, '+IntToStr(iBln)+' Bulan, '+IntToStr(iHari)+' Hari';


Posting Komentar

Pertanyaan atau berdiskusi, silahkan melalui kolom komentar pada artikel yang terkait dengan topik permasalahan.

ERROR - HALAMAN TIDAK TERSEDIA

Copyright © Hakayuci