Arsip: Hitung Umur

more 15 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 15 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 15 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 15 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
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Tanya Harga dan Agen Penjualan Delphi Family
by masdi2t in Hal umum tentang Pascal Indonesia more 16 years ago - [TANYA] "Access Violation at address in module dcc70.dl
by purnomo2007 in Hal umum tentang Pascal Indonesia more 11 years ago - NULL
by EkoIndri in MsSQL more 17 years ago - MENURUT ANDA????
by iccang in Lain-lain more 11 years ago - Penanggalan
by Harun in Tip n Trik Pemrograman more 17 years ago - baru gabung trus juga baru berkecimpung di dunia delphi
by waterbomm in Hal umum tentang Pascal Indonesia more 16 years ago - Koneksi MySQL Server via Internet
by ahmad in Hal umum tentang Pascal Indonesia more 15 years ago - menu aplikasi dapat di pindah posisinya ga ya????
by $tring in Hal umum tentang Pascal Indonesia more 13 years ago - Memperkirakan Waktu utk Meng-copy file atau Men-search file
by bboyz in MySQL more 15 years ago - software pengukur kecepatan akses database
by mbahdien in Hal umum tentang Pascal Indonesia more 15 years ago