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
- Membuat report di delphi ?
by jajang in Reporting more 16 years ago - Link Download ::
by Tbawor in Tip n Trik Pemrograman more 16 years ago - logika fuzzy
by fendi in Delphi.NET more 16 years ago - Penambahan Secara Otomatis Do Dbgrid
by anie_manis in MySQL more 19 years ago - ASK komponen delphi
by zethic in Hal umum tentang Pascal Indonesia more 16 years ago - Saran : Sering Adain Lomba
by cyber_hecker in Kritik & Saran more 19 years ago - tanya inno setup mentog
by jowo in Enginering more 13 years ago - gimana sich cara Sql update tapi datanya Integer
by dody in Paradox more 16 years ago - Script Sql Simpel tapi susah
by Penjahat in MySQL more 16 years ago - Gairah (Muda) Programmer
by yayaretina in OOT more 17 years ago