Halo, temen2 Delphiers.... Kira2 bgmana cara setting tanggal kembalian barang rental (bisa buku, CD, dll). Misal tgl skrg : 12/17/2007 (setting time US) dan nanti kembali maskimal 5 hari lagi jadi hrs kembali tgl 12/22/2007. Aq dah coba dgn spt ini: var HariIni : TDateTime; //var global TanggalKembalian:TDateTime; Year,Month,Day:Word; //thn,bln,tgl skrg Year1,Month2,day2:Word; //thn,bln,tgl kembalian procedure TForm1.Button1Click(Sender: TObject); var a,b,c:integer; Day2:string; begin HariIni:=now; DecodeDate(HariIni,Year,Month,Day); Label1.Caption:=IntToStr(Day); Label2.Caption:=IntToStr(Month); Label3.Caption:=IntToStr(Year); a:=StrToInt(Label1.Caption); b:=StrtoInt(Edit1.text); //misal di Edit1.Text kita isi 5 (5 hari) c:=a+b; Day2:=IntToStr(c); .................... .................... bingung...????? DateTimePicker1.Date:= //tanggal maksimal kembalian Terus gimana kalo pas ganti bulan?. Misal pinjem tgl 29 Des 2007, maka hrs kembali maskimal tgl 3 januari 2008. Terima kasih atas bantuan dan tanggapannya. Smg bermanfaat bg yang lain. Wass

wah gampang coy, kalau pake datetimepicker tinggal tambah aja kok, jadi seperti ini edit1.text := datetostr(DateTimePicker1.Date+5); //dia akan nambah sendiri tanggal/bulannya atau tahunnya secara otomatis.. //beres dah ...OK

utk mengkonversinya, bisa gunakan datetime picker aja seperti kata bos @ahmad... atau supaya ngak mau pusiiing bisa dicari aja di tempat om google utk component ESB component... kalau pake component itu tinggal masukkan AddDays pada TESBDateEdit aja

 ESBDateEdit1.AddDays (5);

ketahuan de tanggal kembaliannya bos...

@ahmad: wah gampang coy, kalau pake datetimepicker tinggal tambah aja kok, jadi seperti ini edit1.text := datetostr(DateTimePicker1.Date+5); //dia akan nambah sendiri tanggal/bulannya atau tahunnya secara otomatis.. //beres dah ...OK

Terima kasih banyak teman2 sekalian, terutama Mas Ahmad dan sekarang aq perbaiki supaya lebih bagus spt ini: :lol: procedure TForm1.Button1Click(Sender: TObject); var JangkaWaktu:integer; TglKembali:string; begin DateTimePicker1.Date:=now; //tgl hari ini JangkaWaktu:=StrtoInt(Edit1.Text); //kita bisa input nilai pd edit1 semau kita TglKembali :=DateToStr(DateTimePicker1.Date+JangkaWaktu); DateTimePicker1.Date:=StrToDate(TglKembali); //tgl kembalian end; Semoga bermanfaat juga bagi yang lain. Makasih

itu mah gampang. variabel HariIni tambah aja dengan angka integer biasa. misal : HariIni:=Now; TglKembali:=HariIni+5; ==>>maka TglKembali adalah tanggal 5 hari kemudian.Utk masalah tgl,bulan tahun termasuk jika feb 29 hari , itu dah otomatis sendiri. Cobain deh...

Hayo sekarang kalo buat selisih hari terlambat dari tanggal kembali dan tanggal hari ini Aq dah coba codingnya spt ini: Type dHariIni :TDateTimePicker; dTglKembal i:TDateTimePicker; //Tanggal kembali LTerlambat :TLabel; //Terlambat n hari ..... procedure TForm1.Button1Click(Sender: TObject); var Terlambat:string; HariTerlambat:TDate; begin dHariIni.Date:=now; HariTerlambat:=dHariIni.Date-dTglKembali; Terlambat:=DateToStr(HariTerlambat); LTerlambat.Caption:=Terlambat; end; Kalo aq isi secara manual dTglKembali dengan 23 Des 2007 dan dHariIni dengan 26 Des 2007 maka muncul LTerlambat.Caption=1/1/1900. Bisa ga ya dimunculin LTerlambat.Caption=3, kan selisihnya 3 hari. Makasih sekali atas bantuannya. Smg bermanfaat bg yg lain juga :D

coba pake fungsi DaysBetween() baca aja help nya.

@imunk: coba pake fungsi DaysBetween() baca aja help nya.

Aq dah coba cari contoh2nya di Mbah Google dan dapet di situs Delphi.about dan kodingnya spt ini: procedure TForm1.Button1Click(Sender: TObject); var dtNow, dtBirth : TDateTime; DaysFromBirth : integer; begin dtNow := Now; dtBirth := EncodeDate(1973, 1, 29); DaysFromBirth := DaysBetween(dtNow, dtBirth); ShowMessage('Zarko Gajic \"exists\" ' + IntToStr(DaysFromBirth) + ' whole days!'); end; tapi waktu ta compile di delphi 6 kok error dgn pesen "Undeclared Identifier: DaysBetween". Kira2 kenapa ya? apa delphi-ku yg rusak ato karena perubahan regional setting, karena sebelumnya barusan ta ubah regional settingnya dari US ke Indonesia. Makasih banyak atas tanggapannya. :lol:

tambahkan uses DateUtils nya; semua function mengenai tanggal ada di sana;

@MrLee: tambahkan uses DateUtils nya; semua function mengenai tanggal ada di sana;

Thank You berat Mr. Lee atas sarannya. Dan ternyata suuukkkkkkkseeeee...sss :lol: Kalo nggak gini, mana aku tau ya..? Semoga bermanfaat juga bagi yg lain. :wink: