Arsip: Validasi menggunakan data tanggal

more 12 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 12 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 12 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 12 years ago
halimanh
codenya lumayan panjang? kan cuma perlu:
if (YearOf(tgl1)=YearOf(tgl2)) and (DayOfTheYear(tgl1)=DayOfTheYear(tgl2)) then

more 12 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 12 years ago
percyl15
saya coba dulu deh gan 2 coding diatas hehe...btw makasih dah mo sharing...

more 12 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
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
- nanya dong...
by Apakekdah in Tutorial & Community Project more 18 years ago - Script Sql Simpel tapi susah
by Penjahat in MySQL more 15 years ago - ProgressBar + Load AVI
by fafenail in Multimedia & Graphic Enhancement more 19 years ago - penjumlahan tanggal
by hafiezd in Bedah Kasus more 15 years ago - Pop up menu di dbgrid
by Brams in Tip n Trik Pemrograman more 17 years ago - transfer file antar server
by mas_kofa in Bedah Kasus more 16 years ago - Bagaimana Cara Membuat Skrip Rumus Fleksibel
by babypigs in Bedah Kasus more 17 years ago - (Ask) Otomatis pindah ke form edit berikutnya ?
by diko_male in Hal umum tentang Pascal Indonesia more 15 years ago - Apa Da yang tau tentang Encrpy database di delphi
by canoey in Tip n Trik Pemrograman more 19 years ago - Buat Chanel di Dalnet
by DeulleDo-X in Hal umum tentang Pascal Indonesia more 19 years ago