Arsip: Validasi menggunakan data tanggal

more 8 years ago
percyl15
halo para master delphi...newbie mo numpang tanya...
langsung aja ya...
kasus saya yaitu : saya punya sebuah transaksi (katakanlah semacam transaksi penjualan) yg hanya bisa diinput pada tanggal kurang dari tanggal hari ini... saya menggunakan 2 komponen DateTimePicker dan 1 buah button..
yang saya inginkan yaitu, kesalahan akan tampil ketika user mencoba menyimpan data pada tanggal hari ini atau lebih besar dr tanggal hari ini...coding yg saya buat yaitu :
procedure TForm1.btnSimpanClick(Sender: TObject);
begin
dtpHariIni.date:=now;
if dtpTanggal.Date > dtpHariIni.Date then
ShowMessage('Maaf, tanggal tidak boleh lebih besar dari tanggal hari ini !')
else if dtpTanggal.Date = dtpHariIni.Date then
ShowMessage('Maaf..tanggal tidak boleh sama dengan tanggal hari ini !')
else
begin
//proses penyimpanan data
end;
end;
Nah..ketika di Run...ternyata ShowMessage yg 1 berhasil, tp yg ke 2 tidak berhasil, jadi user tetap bisa menyimpan data pada tanggal yg sama...karena validasi yg 1 berhasil, maka saya mencoba mengubah codingnya sbb:
procedure TForm1.btnSimpanClick(Sender: TObject);
begin
dtpHariIni,date:=now;
if dtpTanggal.Date = dtpHariIni.Date then
ShowMessage('Maaf, tanggal tidak boleh sama dengan tanggal hari ini !')
else
begin
//proses penyimpanan data
end;
end;
ternyata memang coding ini yg tidak berhasil :-'( saya pikir ini masalah sepele...tp ternyata saya di buat puyeng olehnya hiks..hiks..srooott
apakah validasi 2 coding di atas ada yang keliru(khususnya ketika data tgl yg dipilih oleh user sama dgn tanggal sekarang)???
mohon bantuannya...
terimakasih sebelumnya...

more 8 years ago
halimanh
Masalahnya karena Date juga mengandung hh:mm:ss, jadi membandingkan tglnya harus tanpa waktunya.
@percyl15: halo para master delphi...newbie mo numpang tanya... langsung aja ya... kasus saya yaitu : saya punya sebuah transaksi (katakanlah semacam transaksi penjualan) yg hanya bisa diinput pada tanggal kurang dari tanggal hari ini... saya menggunakan 2 komponen DateTimePicker dan 1 buah button.. yang saya inginkan yaitu, kesalahan akan tampil ketika user mencoba menyimpan data pada tanggal hari ini atau lebih besar dr tanggal hari ini...coding yg saya buat yaitu : procedure TForm1.btnSimpanClick(Sender: TObject); begin dtpHariIni.date:=now; if dtpTanggal.Date > dtpHariIni.Date then ShowMessage('Maaf, tanggal tidak boleh lebih besar dari tanggal hari ini !') else if dtpTanggal.Date = dtpHariIni.Date then ShowMessage('Maaf..tanggal tidak boleh sama dengan tanggal hari ini !') else begin //proses penyimpanan data end; end; Nah..ketika di Run...ternyata ShowMessage yg 1 berhasil, tp yg ke 2 tidak berhasil, jadi user tetap bisa menyimpan data pada tanggal yg sama...karena validasi yg 1 berhasil, maka saya mencoba mengubah codingnya sbb: procedure TForm1.btnSimpanClick(Sender: TObject); begin dtpHariIni,date:=now; if dtpTanggal.Date = dtpHariIni.Date then ShowMessage('Maaf, tanggal tidak boleh sama dengan tanggal hari ini !') else begin //proses penyimpanan data end; end; ternyata memang coding ini yg tidak berhasil :-'( saya pikir ini masalah sepele...tp ternyata saya di buat puyeng olehnya hiks..hiks..srooott apakah validasi 2 coding di atas ada yang keliru(khususnya ketika data tgl yg dipilih oleh user sama dgn tanggal sekarang)??? mohon bantuannya... terimakasih sebelumnya...

more 8 years ago
percyl15
iya gan...mungkin waktunya jg harus dihilangkan dulu....akhirnya saya nyoba pake fungsi DecodeDate, alhamdulillah udah sesuai keinginan hehehe....cuman coding-nya emang agak lumayan panjang, tp gpp lah, yg penting ilmu saya nambah hehehe.....

more 8 years ago
halimanh
codenya lumayan panjang? kan cuma perlu:
if (YearOf(tgl1)=YearOf(tgl2)) and (DayOfTheYear(tgl1)=DayOfTheYear(tgl2)) then

more 8 years ago
ImanD
@halimanh: codenya lumayan panjang? kan cuma perlu:kayaknya masih panjang codenya, masihkah harus menggunakan variable tgl1 dan tgl2, karena code diatas memanfaatkan 'DateUtils', bisa lebih disimplekan codenya denganif (YearOf(tgl1)=YearOf(tgl2)) and (DayOfTheYear(tgl1)=DayOfTheYear(tgl2)) then
if SameDate(dtpTanggal.Date, dtpHariIni.Date) then
PISS
more 8 years ago
percyl15
saya coba dulu deh gan 2 coding diatas hehe...btw makasih dah mo sharing...

more 8 years ago
mas_kofa
kalo aku biasa pake trunc.....
if trunc(dtp1.date > dtp2.date) then
........
if trunc(dtp1.date) = trunc(dtp1.date) then
..........
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Cara Penulisan SELECT FORMAT(Uang,2) FROM tablebank ,Sukses
by faridx in MsSQL more 13 years ago - Suara lewat Jaringan
by snip3r in Enginering more 13 years ago - Format input tanggal di Access
by jonathan_giuliano in Lain-lain more 11 years ago - bagaimana cara komputer membaca perintah dari sms
by ismail069 in Tip n Trik Pemrograman more 15 years ago - Arsip forum bisa di download dong, atau di cdkan !
by maulaku in Kritik & Saran more 13 years ago - gmn cara buat printout nota
by artan in Hal umum tentang Pascal Indonesia more 14 years ago - cara cek Tstringlist?
by barcodebima in Tip n Trik Pemrograman more 13 years ago - report master detail
by r_rie in Reporting more 11 years ago - Links: Tutorial, Code Samples, Tip dan Trik
by DelphiExpert in Tip n Trik Pemrograman more 12 years ago - Lazarus 0.9.26 (beta) is released!
by simba in OpenSource dan Gratis more 12 years ago