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
- Pengurangan tgl
by p2bf in Tip n Trik Pemrograman more 17 years ago - [help] - ZUpdateSQL - Update Record
by rydzâ„¢ in MySQL more 16 years ago - eject setelah nge-print
by CAHYADI_ONG in Tip n Trik Pemrograman more 17 years ago - mengetahui SO yg terinstall di PC
by imunk in Enginering more 19 years ago - Trouble Insert Image ke Oracle 9i...
by Chang80 in MySQL more 19 years ago - cara install zeos ke delphi 6
by sandymercury in MySQL more 13 years ago - Pencarian
by lord_suji in Hal umum tentang Pascal Indonesia more 18 years ago - Bernial Nol pada suatu Node yg tidak pernah kita klik
by onsir in MySQL more 17 years ago - [?] Bikin Pack atau Update-an u/ Program yg Sudah Berjalan?
by babypigs in Enginering more 17 years ago - AdoConnection dan ProgressBar
by myzendcafe in Hal umum tentang Pascal Indonesia more 17 years ago