On Sunday, October 06, 2002 9:51 PM it-partner wrote:
>
> setelah tanggal di system saya ganti 2002,02,02 kok yg nampil
> 'gakberhasil' ya ????
> apakah ada yang salah ya????? mohon dibantu ???
>
TDateTime sebenarnya bertipe double, kalau melakukan komparasi secara
demikian maka beda 1/100 milisecond sekalipun dihitung sebagai beda, dalam
implementasi riilnya, ada suatu rasio yang digunakan jika perbedaan tersebut
masih dalam cakupan 100 milisecond maka bisa diasumsikan sebagai sama/equal.
di delphi fungsi-fungsi yang terkait dengan hal ini yang bisa anda gunakan:
CompareDate(ADateNow, ADateThen);
CompareTime(ADateNow, ADateThen);
CompareDateTime(ADateNow, ADateThen);
sedang untuk mendapatkan tanggal hari ini bisa memanfaatkan builtin function
date; time; atau now;
jadinya kira-kira begini:
begin
if CompareDate(date, EncodeDate(2003,11,2)) > 0 then
Label1.Text := 'berhasil'
else
Label1.caption := 'gakberhasil';
end
Salam,
-Jaimy
--
...Maybe you should think about how much time other people spend
on developing components to make you idiots which wouldn't even
be able to make a simple window showing up, possible to call
yourselves "PROGRAMMERS"...
-- James (20-09-2003 21:36)
------------------------ 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/
