Arsip: Hitung Umur

 
user image
more 13 years ago

Gratz

mas / mbak yang jago delphi.... :?: tulung dunk.... bgmn script buat menghitung umur orang berdasarkan tanggal lahirnya? misal : si A lahir tggl : 7 mei 1986 berapa umur A saat ini ? tanggal hari ini - tanggal lahir = umur 11 Juli 2007 - 7 mei 1986 = ...... tahun mohon bantuannya ya....
user image
more 13 years ago

ivan

kamu bisa memanfaatkan function dari Delphi yaitu Unit DateUtils Category datetime routines function YearsBetween(const ANow, AThen: TDateTime): Integer; Contoh: TglLahir: TDateTimePicker;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= IntToStr(YearsBetween(DateOf(Now), TglLahir.Date));
end;
user image
more 13 years ago

cyber_hecker

coba liat disini http://pascal-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&t=2719&highlight=hitung+umur http://pascal-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&t=331&highlight=hitung+umur
user image
more 13 years ago

pradhana

coba ini deh.. kayak lagunya krisdayanti :D semoga bermanfaat :)

function MenghitungHari(HariLahir, HariIni: TDate): Integer;
var
  TanggalLahir, BulanLahir, TahunLahir, TahunIni, BulanIni, TanggalIni: Word;
begin
  DecodeDate(HariLahir, TahunLahir, BulanLahir, TanggalLahir);
  DecodeDate(HariIni, TahunIni, BulanIni, TanggalIni);
  if (TahunLahir = TahunIni) and (BulanLahir = BulanIni) and (TanggalLahir = TanggalIni) then
  begin
    Result := 0;
  end
  else
  begin
    Result := TahunIni - TahunLahir;
    if (BulanLahir > BulanIni) then
      Dec(Result)
    else
    begin
      if BulanLahir = BulanIni then
        if (TanggalLahir > TanggalIni) then
          Dec(Result);
    end;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := Format('Wah.. udah berumur %d tahun', [MenghitungHari(StrToDate('30/06/1982'), Date)]);
end;
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com