Delhpi – Menghitung Usia
Posted by arifw pada Kamis, 24 April 2008
function CalculateAge(Birthday, CurrentDate: TDate): Integer;
var
Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
DecodeDate(Birthday, Year, Month, Day);
DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);
if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
begin
Result := 0;
end
else
begin
Result := CurrentYear – Year;
if (Month > CurrentMonth) then
Dec(Result)
else
begin
if Month = CurrentMonth then
if (Day > CurrentDay) then
Dec(Result);
end;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Format(‘Your age is %d’, [CalculateAge(StrToDate('01.03.1953'), Date)]);
end;
2 Tanggapan to “Delhpi – Menghitung Usia”
Maaf, form komentar ditutup saat ini.
dede nurzaman berkata
master mau nanya nih kalo kita mau menghitung lama karyawan bekerja tanpa membuat function sendiri gimana?
misal karyawan mulai jd karyawan pada 01/01/2008 kemudian sekarang tanggal 16/01/2010 berarti dia bekerja selama 2 tahun 15 hari nah untuk menentukan 2 tahun 15 hari itu gimana ya kalo tanpa membuat function sendiri.
thx a lot
jahidin berkata
tutorialnya boleh juga. Tapi bagaimana kalau ditambah lagi dengan hari, bulan dan tahu. Sepertinya akan lebih menarik.