function SelisihHari(date_awal,date_akhir:TDatetime):integer; var TGL1,TGL2 : TTimeStamp; begin result := datetimetotimestamp(date_akhir) - datetimetotimestamp (date_awal);
end; kurang lebih seperti ini. mungkin ada kesalahan soalnya saya tidak mengetiknya pada IDE delphi. > Allo Semua, > > Mau bertanya, bagaimana mencari selisih hari dari 2 tanggal, misalnya > hari ini(04/11/2003) - (02/11/2003) = 2 hari, tapi kan ada juga > perbedaan bulan dan tahun. > > Apakah ada yang mempunyai solusi nya..sepertinya sudah pernah ada yang > menanyakan, tapi saya cari lagi emailnya tidak ketemu. > > Terima Kasih > ------------------------ Yahoo! Groups Sponsor ---------------------~--> Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511 http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/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/
