Arsip: Hitung Umur

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....

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;

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

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
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Trigger To Delphi
by umarbakri in Hal umum tentang Pascal Indonesia more 14 years ago - insert data mysql pake zeos kok lambat ya..??
by d4mnf1y32 in Tip n Trik Pemrograman more 9 years ago - OOT : Delphier Jateng dan sekitarnya..
by yayaretina in OOT more 14 years ago - Ms Access Network
by R-One in Lain-lain more 13 years ago - Tanya struktur aplikasi database yang baik dan benar
by _lmz in Enginering more 14 years ago - set image ke wallpaper format selain bmp
by benyy in Multimedia & Graphic Enhancement more 14 years ago - bingung bikin project baru di delphi 2007
by hackinds in Hal umum tentang Pascal Indonesia more 13 years ago - BDE
by drackids in OOT more 13 years ago - Menu pake TreeView di deplhi, Supaya Dinamis gimana ?
by palapetir in Tip n Trik Pemrograman more 15 years ago - mengedit 2 buah data yang sama
by tara in Lain-lain more 11 years ago