----- Original Message ----- From: "ase ase" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Sunday, July 06, 2003 12:06 Subject: [Delphindo] salam kenal en mo tanya ncih
> allow para guru delphi begini saya masih baru baru nyoba nich tentang delphi saya > mau tanya nich gimana kalo mo ngurangin tanggal jadi saya punya tanggal mis. 12/06/02 dan 18/07/02 gimana caranya biar saya dapet hasilnya berupa bentuk bulan atau hari jadi hasil diatas nilainya 36 hari atau 1 buan 6 hari gimana yaa > tolong kalo bisa diberi langsung listing program contohnya ajaa dech mungkin anda bisa menggunakan fungsi DaySpan atau DaysBetween dari unit DateUtils. Fungsi ini akan mengembalikan nilai perbedaan waktu dalam hari (lebih lengkapnya lihat help). Atau mungkin anda lebih menyukai IDE seperti ini : ini belum jadi, harus anda kasih konstraint terlebih dahulu misalkan untuk tanggal 28 februari 2003 dan 28 maret 2003 akan menghasilkan nilai 1 bulan. selamat bereksperimen. function BedaTanggal (Tanggal1, Tanggal2 : TDateTime) : string; var year1, year2, month1, month2, day1, day2 : integer; begin decodedate(tanggal1,year1,month1,day1); decodedate(tanggal2,year2,month2,day2); result := ''; if year2<> year1 then result := result + inttostr(year2-year1)+ ' tahun '; if month2<> month1 then result := result + inttostr(month2-month1)+ ' bulan '; if day2<> day1 then result := result + inttostr(day2-day1)+ ' hari '; result := trim(result); end; > kedua saya mo tanya ada yang tau cara gunain berbagai fungsi windows api nggak kao ada tlong bagi ilmunya donk en kirim ke saya donk > sekian aja tolong dimaklumi masih baru sich > salam dari avvand fungsi mana yang anda maksudkan? kalo mau contoh silakan lihat disini : http://delphi.about.com/cs/windowsshellapi/ atau Using The Windows API In Delphi : http://www.blong.com/Conferences/BorConUK97/WinAPI/Api.htm ------------------------ Yahoo! Groups Sponsor ---------------------~--> Save up to 80% on top-quality inkjet cartridges and get your order fast! FREE shipping on orders $50 or more to the US & Canada. Shop at Myinks.com! http://www.c1tracking.com/l.asp?cid=5511 http://us.click.yahoo.com/v2G7ND/KfUGAA/ySSFAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
