Berikut adalah contoh fungsi yang akan mengembalikan nilai selisih 2 tanggal yang dimasukkan (selisih = date1 - date2)
...............
{
fungsi untuk menghitung selisih dari input 2 tanggal yang dimasukkan
input : tanggal1 dan tanggal2
output : selisih tanggal1 dan tanggal2 (tanggal1 - tanggal2)
}
function selisihTanggal(date1, date2:Tdate) : longint;
begin
selisihTanggal:=trunc(date1) - trunc(date2);
end;
...........
Untuk digunakan dalam program anda :
proc buttonclick >>>
begin
edit3.text:=inttostr(selisihTanggal( strtodate(edit2.text),strtodate(edit1.text) ));
end;
Semoga membantu...
Original Message :
Message: 2
Date: Sat, 23 Oct 2004 08:51:45 -0000
From: "n15aya" <[EMAIL PROTECTED]>
Subject: pengurangan 2 tanggal
mohon pencerahan;
saya memberikan input tanggal1 ke edit1 dan tanggal2 ke edit2,
edit3 untuk hasil pengurangan tanggal2-tanggal1 melalui procedure
click.
proc buttonclick >>>
begin
edit3.text:=datetostr(strtodate(edit2.text)-strtodate(edit1.text))
end;
hasil pengurangan ternyata dalam format tanggal,bagaimana biar berupa
angka??
misal:17/10/04-13/10/04 agar hasilnya=4 ?
terimakasih.
---------------------------------
Do you Yahoo!?
vote.yahoo.com - Register online to vote today!
[Non-text portions of this message have been removed]
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
