Arsip: Tolong dong mas jelasin maksud coding ini.....

more 8 years ago
kepiss
maaf sebelum nya buat delphi-id kalo diforum ini saya banyak nanya...
soale masih newbie banget...hhehe
aku punya code seperti ini masi
Function umur(lahir,sekarang:Tdate):integer;
var
tahun,bulan,hari,tahunsekarang,bulansekarang,harisekarang:WORD;
begin
DecodeDate(lahir,tahun,bulan,hari);
Decodedate(sekarang,TahunSekarang,bulansekarang,harisekarang);
if (tahun=tahunsekarang) and (bulan=bulansekarang) and (hari=harisekarang) then
begin
result:=0;
end else
begin
result:=tahunsekarang - tahun;
if (bulan > bulansekarang) then
dec(result)---------------------------------->dec(result) maksudnya apa mas??hasilnya apa?? Kalo inc(result) artinya apa??
else
begin
if bulan =bulanSekarang then
if (hari > harisekarang) then
dec(result);
end;
end;
end;
tolong bantuanya/......ya...biar tambah ngerti....hehe...makasih...
more 8 years ago
n3o_cybertech
dec(result) itu mksdnya decrease,mengurangi nilai variable sebanyak 1. misal dec(16) ya hasilnya jadi 15.

more 8 years ago
denmasdanang
misal function dipanggil seperti ini :
datetimepicker1.date --> '1/1/1990';
numeric1.value := umur(datetimepicker1.date, today());
-- penjelasan --
DecodeDate(lahir,tahun,bulan,hari);
--> variable tahun = 1990, bulan = 1, hari = 1
Decodedate(sekarang,TahunSekarang,bulansekarang,harisekarang);
--> variable TahunSekarang = 2012, bulansekarang = 3, harisekarang = 30
if (tahun=tahunsekarang) and (bulan=bulansekarang) and (hari=harisekarang) then
begin
result:=0;
--> bila 1990 = 2012 dan 1=3 dan 1=30 ( false )
end else
begin
result:=tahunsekarang - tahun;
--> hasil = 2012 - 1990 = 22 ( ------------- hasil terbaru ----------- )
if (bulan > bulansekarang) then
dec(result)---------------------------------->dec(result) maksudnya apa mas??hasilnya apa?? Kalo inc(result) artinya apa??
--> bila 1 > 3 ( false )
maksudnya ini :
dec(result) --> result := result -1;
inc(result) --> result := result +1;
else
begin
if bulan =bulanSekarang then
if (hari > harisekarang) then
dec(result);
end;
end;
end;
bisa disederhanakan jadi :
if bulan =bulanSekarang and (hari > harisekarang) then
--> bila 1 = 3 dan 1 > 30 ( false )
dari function umur diatas hasilnya
numeric1.value := 22
untuk mendapatkan umur sudah ada built-in function di delphi
YearsBetween(tanggalLahir, TanggalSekarang)
semoga bermanfaat
:D
more 8 years ago
kepiss
@denmasdanang: misal function dipanggil seperti ini : datetimepicker1.date --> '1/1/1990';wah wah wah....makasih denmasdanang.........ane tambah ilmu anda tamabah pahala....hehehhe... sukses buat denmasdanang.............-- penjelasan --numeric1.value := umur(datetimepicker1.date, today());
--> variable tahun = 1990, bulan = 1, hari = 1DecodeDate(lahir,tahun,bulan,hari);
--> variable TahunSekarang = 2012, bulansekarang = 3, harisekarang = 30Decodedate(sekarang,TahunSekarang,bulansekarang,harisekarang);
--> bila 1990 = 2012 dan 1=3 dan 1=30 ( false )if (tahun=tahunsekarang) and (bulan=bulansekarang) and (hari=harisekarang) then begin result:=0;
--> hasil = 2012 - 1990 = 22 ( ------------- hasil terbaru ----------- )end else begin result:=tahunsekarang - tahun;
--> bila 1 > 3 ( false ) maksudnya ini : dec(result) --> result := result -1; inc(result) --> result := result +1;if (bulan > bulansekarang) then dec(result)---------------------------------->dec(result) maksudnya apa mas??hasilnya apa?? Kalo inc(result) artinya apa??
bisa disederhanakan jadi :else begin if bulan =bulanSekarang then if (hari > harisekarang) then dec(result); end; end; end;
--> bila 1 = 3 dan 1 > 30 ( false ) dari function umur diatas hasilnya numeric1.value := 22 untuk mendapatkan umur sudah ada built-in function di delphiif bulan =bulanSekarang and (hari > harisekarang) then
semoga bermanfaat :DYearsBetween(tanggalLahir, TanggalSekarang)
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
- Akses Ke Server dengan SQLyog error
by onsir in MySQL more 13 years ago - Eventkeypressnya Kok Gak Bisa?
by cyber2000 in Tip n Trik Pemrograman more 11 years ago - Membuat Laporan Per Group
by yanto in Tutorial & Community Project more 14 years ago - Gimana buat Login beneran ?
by debby in Hal umum tentang Pascal Indonesia more 13 years ago - membuat no urut secara otomatis
by kentung in Hal umum tentang Pascal Indonesia more 13 years ago - Tanya SQL di Ms.Access??
by gold3n_b0y in Hal umum tentang Pascal Indonesia more 14 years ago - Delphi Contest: Creating Fancy Applications
by Tbawor in OOT more 12 years ago - Icon berubah saat di klik
by felly in Kritik & Saran more 11 years ago - FreeReport Variable
by irosyidi in Hal umum tentang Pascal Indonesia more 14 years ago - FTP dgn delphi
by mas_kofa in Hal umum tentang Pascal Indonesia more 14 years ago