Tipe data TDate atau TDateTime pada dasarnya adalah tipe double, 
dengan bagian bilangan bulat menyatakan hari, dan pecahannya sebagai 
pecahan hari (0.5 = setengah hari = 12 jam, dst).

Misal kita ingin tahu berapa jumlah hari dalam satu abad kemarin, 
maka kita menghitung selisih hari dari tanggal 1 Januari 1900 dan 1 
Januari 2000.

var 
  dtStart, dtFinish: TDate;
  dblDaysInBetween: double;
  dblMonthsInBetween: double;
  dblYearsInBetween: double;

dtStart := EncodeDate(1900,1,1);
dtFinish := EncodeDate(2000,1,1);

dblDaysInBetween := dtFinish-dtStart; // mungkin perlu typecasting di 
sini;-)

dblMonthsInBetween := dblDaysInBetween / 30;

dblYearsInBetween := dblDaysInBetween / 365;


Salam,
Ferli
--- In [EMAIL PROTECTED], "Heriyanto" <[EMAIL PROTECTED]> wrote:
> 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.




------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs Online - Over 14,500 titles.
No Late Fees & Free Shipping.
Try Netflix for FREE!
http://us.click.yahoo.com/xlw.sC/XP.FAA/3jkFAA/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/ 


Kirim email ke