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
- 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
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 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
- client/server
by ridwan in Hal umum tentang Pascal Indonesia more 15 years ago - ngeprint stringgrid di fast report
by radhutz in Bedah Kasus more 11 years ago - exe generate file .INI
by de27de in Hal umum tentang Pascal Indonesia more 11 years ago - poling kaos delphi-id
by simba in OOT more 14 years ago - PST Different... (Outlook Files)
by reminder2k1 in Hal umum tentang Pascal Indonesia more 10 years ago - konfigurasi Jedi VCS di untuk database SQL server
by Brams in Tip n Trik Pemrograman more 13 years ago - Tanya tentang cara mengganti nilai create object runtime
by busan in Tip n Trik Pemrograman more 11 years ago - Insert Data Stringgrid Ke combobox
by hak3nd3n in Network, Files, I/O & System more 11 years ago - performa aplikasi
by JalmaLier in Tip n Trik Pemrograman more 12 years ago - combobox dalam dbgrid
by abu_jauzaa in Tip n Trik Pemrograman more 12 years ago