Arsip: Validasi menggunakan data tanggal

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

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

more 9 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
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- Memisah tampilan Monitor dan TV dalam software Karaoke....
by purnomo2007 in Multimedia & Graphic Enhancement more 11 years ago - Download ms SQL Server 2000 Dimana ?
by hyde in MsSQL more 14 years ago - parsing sms gateway
by muhamad in Hal umum tentang Pascal Indonesia more 14 years ago - Ask : IntToStrX
by boy_borland in Tip n Trik Pemrograman more 15 years ago - gimana cara disable spasi dan karakter di textbox?
by frozenade in Tip n Trik Pemrograman more 15 years ago - Delphi-ID.Org pindah ke rumah baru
by LuriDarmawan in Hal umum tentang Pascal Indonesia more 15 years ago - minimize size executable
by dell-phi in Hal umum tentang Pascal Indonesia more 12 years ago - baca file txt dari server
by belajaraja in Tip n Trik Pemrograman more 13 years ago - Menampilkan Dbgrid Dg Script Ndiri
by saysansay in Tip n Trik Pemrograman more 16 years ago - Report Horizontal gimana caranya ?
by MardiahBarnawi in Reporting more 13 years ago