Contoh:
Selisih : SmallInteger;
Selisih := DaysBetween(Date1, Date2)
-----Original Message-----
From: Yuan Lukito [mailto:[EMAIL PROTECTED]
Sent: Monday, October 25, 2004 9:49 AM
To: [EMAIL PROTECTED]
Subject: [Delphindo] Re : Pengurangan 2 tanggal
Untuk melakukan pengurangan dari 2 tanggal, dapat langsung dikurangkan
dengan hasilnya berupa bilangan real. Agar hasilnya dalam bilangan bulat
maka perlu di lakukan truncate ('pemotongan' dari real ke integer)
dengan fungsi trunc.
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 Links
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.
