Menghitung Umur Delphi

Aplikasi sederhana untuk menghitung berapa umur kita sekarang, dengan memasukkan tanggal lahir.

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, ComCtrls, StdCtrls, DateUtils;<br /><br />type<br />  TForm1 = class(TForm)<br />    Edit1: TEdit;<br />    DateTimePicker1: TDateTimePicker;<br />    procedure DateTimePicker1Change(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br /><br />function Umur(TglSekarang, TglLahir:TDate): string;<br />var<br />th,bl,hr,<br />y1,m1,d1,<br />y2,m2,d2: Word;<br />begin<br />Result:='';<br /><br />if TglLahir>TglSekarang then<br />Exit;<br /><br />DecodeDate(TglSekarang,y1,m1,d1);<br />DecodeDate(TglLahir,y2,m2,d2);<br />th:=y1-y2;<br /><br />if m1<m2 then<br />begin<br />bl:=12-m2+m1;<br />Dec(th);<br />end else<br />bl:=m1-m2;<br /><br />if d1<d2 then<br />begin<br />hr:=DaysInAMonth(y2,m2)-d2+d1;<br />Dec(bl);<br /><br />if bl>11 then<br />begin<br />bl:=11;<br />Dec(th);<br />end;<br />end<br />else<br />hr:=d1-d2;<br /><br />if th>0 then<br />Result:=Result+IntToStr(th)+' tahun';<br /><br />if bl>0 then<br />begin<br />if Result>'' then Result:=Result+', ';<br />Result:=Result+IntToStr(bl)+' bulan';<br />end;<br /><br />if hr>0 then<br />begin<br />if Result>'' then Result:=Result+', ';<br />Result:=Result+IntToStr(hr)+' hari.';<br />end;<br /><br />if Result>'' then<br />Result:='Umur ... '+Result;<br />end;<br /><br /><br />procedure TForm1.DateTimePicker1Change(Sender: TObject);<br />begin<br />  Edit1.Text  := Umur(Now,DateTimePicker1.Date);<br />end;<br /><br />end.

Hasil Screenshot :

Download Program + Source DISINI