Arsip: menghitung jumlah hari dari selisih tanggal

more 15 years ago
febrian88
ass..
maaf mas-mas semua....
minta bantuannya mungkin pertanyaan saya sudah banyak terjawab. pi saya belum menemukannya.
1. bagaimana cara menghitung jumlah hari dari selisih tanggal.
contohnya:
tanggal kembali - tanggal sewa = jmlah hari.
ex.
07/04/2009 - 02/04/2009=??? (dengan hasil 3 hari)
kasus ini dipakai untuk perhitungan denda perhari dari penyewaan
terima kasih mohon bantuannya

more 15 years ago
mas_kofa
bukankah pertanyaan kamu udah kamu jawab sendiri ???
@febrian88: ass.. jumlah hari = tanggal kembali - tanggal sewa

more 15 years ago
febrian88
maksudnya script di delphinya mas.
supaya hasilnya dari date ke integer..
saya coba bila format date dikurang format date lagi akan menghasilkan tanggal lagi ketika outputnya ke TEdit menggunakan Konversi DateToStr. dan bila FloatToStr menjadi bilangan koma.

more 15 years ago
febrian88
terima kasih mas_kofa bantuannya..
alhamdulilah saya sudah menemukan cara lain..
procedure TForm1.Button1Click(Sender: TObject);
var
x : real;
y : string;
begin
x := IncDay(DateTimePicker1.Date-DateTimePicker2.Date);
y := FloatToStr(round(x));
edit1.Text := y;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Form tidak tampil
by Arieska in Tip n Trik Pemrograman more 18 years ago - isi data di dbgrid bisa Multiline
by wati in Tip n Trik Pemrograman more 12 years ago - Adakah konflik saat application deployment ?
by jimmyy2k2000 in Tip n Trik Pemrograman more 17 years ago - TWebBrowser to XML
by EkoIndri in Delphi.NET more 18 years ago - Menampilkan 16000 Record lambat?
by myluqman in MsSQL more 17 years ago - Firebird 2.0 Released!
by simba in FireBird more 18 years ago - Zeos Table "is busy"?
by ekosch in Tutorial & Community Project more 17 years ago - [?] Bagaimana Membuat Skrip SQL dgn Komponen Query Zeos?
by babypigs in Bedah Kasus more 17 years ago - Masalah Eksplorasi DTS (SQL Server) di delphi programming???
by RedsGrands in MsSQL more 17 years ago - Bagaimana Cara Membuat Skrip Rumus Fleksibel
by babypigs in Bedah Kasus more 17 years ago