Arsip: tanya cara ngitung tanggal

more 14 years ago
budhie_yk
minta solusinya teman semuanya, saya ada beberapa masalah dlm buat tugas
1. saya pakai mysql, punya field tgllahir, monampilkan umur sekarang yaitu ada berapa tahun dan berapa bulan (mis. 25 tahun 8 bulan) bagaimana ya..
2. untuk pembulatan kebawah intruksinya apa ya..(mis. 23,8 menjadi 23), juga utk pembulatan keatas (mis.23,2 menjadi 24)
3.untuk pembulatan kebawah puluhan dan ribuan (mis. 1340 menjadi 1300, ribuan mis. 134.560 menjadi 134.000)
4.untuk pembulatan keatas untuk puluhan dan ribuan
mohon diberikan pencerahaannya....tq

more 14 years ago
reev
Mungkin sudah coba referensi ini:
http://www.scribd.com/doc/445731/Disable-Windows-Logo-Key

more 14 years ago
joudie
reev: ini maksudnya untuk apa? kyknya yg di tanya range deh coba buka http://www.scribd.com/doc/445731/Disabl ... s-Logo-Key yg kluar apa?

more 14 years ago
reev
Sorry, salah posting :-p
1.
Misalkan selisih tanggal sekarang dan tgl lahir adalah 393:
Tahun:=Selisih div 365; //->1
Selisih:=Selisih -( Tahun 365)
Bulan := Selisih div 30; //-->0
Hari:= Selisih - (Bulan 30); //--> 28
Umur sampai saat ni: 1 tahun, 0 bulan, 28 hari.
2. Apa nggak kebalik tuh? BTW, pembulatan ke atas, ambil angka di belakang koma (belakangkoma:=Frac(x)), jika lebih dari nol, angka yang di depan ditambah 1. Selesai. Untuk pembulatan ke bawah, cukup ambil angka yang di depan koma saja (depankoma:=Trunc(x)).
Apabila untuk 23,2 jadi 23, dan 23.8 jadi 24, ambil angka di belakang koma. Jika kurang dari 0.5 berarti angka di depan saja yang diambil sebagai hasil pembulatan ke bawah. Jika lebih dari 0.5, berati ambil angka di depan trus di tambah satu sebagai hasil pembulatan ke atas.
3. BulatBawahRibuan:= BilanganSumber div 1000; Untuk pluhan, BilanganSumber div 10.
4. Cek sisa pembagian:
//Untuk ribuan
Ribuan:=BilanganSumber div 1000;
Sisa:=BilanganSumber mod 1000;
if Sisa>0 then Inc(Ribuan);
Ribuan--->Hasil pembulatan ke atas.
CMIIW :-)

more 14 years ago
budhie_yk
trimakasih untuk semuanya mo saya implementasikan dulu...semoga sukses nih tugas
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
- Kaos Delphi v.2 -- Masalah Pengiriman
by ichan29 in Tutorial & Community Project more 14 years ago - koneksi delphi dengan mysql
by buyungff in Hal umum tentang Pascal Indonesia more 16 years ago - membuat if statement untuk array
by fenan in Tip n Trik Pemrograman more 14 years ago - Tny error ttg image!!!
by camp_sire in Tip n Trik Pemrograman more 14 years ago - Harga Software
by delphi1st in Tip n Trik Pemrograman more 16 years ago - Text vertikal
by p2bf in Tip n Trik Pemrograman more 16 years ago - Isi Edit Box tidak berubah
by onsir in Hal umum tentang Pascal Indonesia more 15 years ago - Cara Install crystal report di delphi ?
by dakocan in Reporting more 15 years ago - Cari koordinat X , Y
by rudy_keren in Enginering more 17 years ago - Tanya?Cara Penjumlahan,Perkalian,Dll..Angka Pada Rave Report
by faridx in Tip n Trik Pemrograman more 15 years ago