Hitung Umur dengan delphi

Source code hitung umur. Walaupun sudah sangad banyak cara hitung umur terutama dengan delphi, ane berharap source code ini bisa sedikit membantu untuk yang sedang belajar delphi walapun masih banyak kekurangannya. Silakan untuk dikembangkan.
Pada dasarnya cara menghitung umur adalah dengan mengurangkan tanggal sekarang dengan tanggal lahir untuk mengetahui selisih jumlah hari diantara keduanya. Dalam source code ini, ane memodifikasi sebuah fungsi yaitu

Result:= Trunc(TglNew - TglOld);
sebagai berikut :

function SelisihTanggal(TglOld,TglNew: TDate): Integer;
begin
Result:= Trunc(TglNew - TglOld);
end;

fungsi tersebut di tulis dibawah :

implementation

{$R *.dfm}


Download Source Code :