xixixixi.... padahal maksud saya tanggal 10 Dzulhijjah 1411 H loh... :P Terus gimana nih ? Akan ditetapkan format inputan tanggal-nya ? Pilih format inputan yang mana kalau ndak mau format inputan YYYY-MM-DD yang bersifat universal ?
Wassalam, Kid. 2013/6/26 Ahmad Adriansyah <ahmad.adrians...@trac.astra.co.id> > ** > > > He..he… iya juga ya Om Kid,**** > > **Uhm** saya menafsirkan 10 November 2012 (Hari Pahlawan) he..he..**** > > ** ** > > Rgds,**** > > AA**** > > ** ** > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid > *Sent:* 26 Juni 2013 8:41 > > *To:* BeExcel > *Subject:* Re: [belajar-excel] VBA untuk Tanggal**** > > ** ** > > ** ** > > hehehe.... usernya boleh ngisi seenaknya kok aplikasinya ndak boleh > menafsirkan seenaknya ?**** > > gak fair kali ya...**** > > kira-kira, kalau saya input : > 10/11/12**** > > Anda akan menduga yang saya maksud tanggal berapa ?**** > > Wassalam, > Kid.**** > > ** ** > > 2013/6/26 Ahmad Adriansyah <ahmad.adrians...@trac.astra.co.id>**** > > Terima kasih Om Kid,**** > > Sesuai dengan harapan, namun Om ada sedikit problem yaitu :**** > > 1. Misalnya kita input 2013-04-03 maka data yang dihasilkan sesuai > (karena informasi inputnya yyyy-mm-dd), namun jika kita input 13/4/3 maka > akan menghasilkan 2003-04-13. Selain itu, data yang diinput menghasilkan > data text, bukan data tanggal. **** > > 2. Misalnya kita input 12/4/3, yang dihasilkan adalah 2003-04-12, > kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03. Hal > ini menimbulkan End Date < Start Date.**** > > **** > > Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya > 2012-03-04, atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value > 04 Maret 2012), bagaimana ya Om solusinya. Terima kasih.**** > > **** > > Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet > menghasilkan “datevalue” :**** > > **** > > > ----------------------------------------------------------------------------------------------------------------- > **** > > Private Sub cmdMisal_Click()**** > > Dim LastRow As Range, Respons, Ctrl As Control**** > > On Error Resume Next**** > > Set LastRow = Sheet1.Range("C1000").End(xlUp)**** > > With LastRow**** > > .Cells(2, 0) = txtTglStart.*Value*: .Cells(2, 1) = > txtTglEnd.*Value*:**** > > End With**** > > Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad > Entry Form")**** > > End Sub**** > > > ----------------------------------------------------------------------------------------------------------------- > **** > > **** > > **** > > Regards,**** > > AA**** > > **** > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid > *Sent:* 26 Juni 2013 6:45 > *To:* BeExcel > *Subject:* Re: [belajar-excel] VBA untuk Tanggal**** > > **** > > **** > > Coba file terlampir.**** > > Wassalam,**** > > Kid.**** > > **** > > 2013/6/25 Ahmad Adriansyah <ahmad.adrians...@trac.astra.co.id>**** > > **** > > Dear Rekan2 Be-Excel,**** > > Klik kanan dan pilih > "FormShow" > **** > > 1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada > textbox1 (harus data tanggal) > > **** > > 2. Text box harus diisi dengan data tanggal minimal > (dd/mm/yy) > > **** > > > **** > > Problem > : > **** > > 1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh > pada bulan dan tahun. > > **** > > Contoh > : > **** > > Textbox1 diisi : > 13/2/13 > **** > > Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak > jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih > kecil karena dia hanya membaca tanggal) **** > > 2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika > user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak > ada tanggal 31 Juni. **** > > > **** > > Bagaimana solusinya?**** > > **** > > Regards,**** > > **** > > AA**** > > **** > > ** ** > > **** > > >