Cara Cepat Memvalidasi Tanggal pencarian awal dan tanggal akhir

Daripada kebanyakan menuliskan coding yang berkali - kali dalam menentukan pencarian pada 2 buah tanggal di code window Visual Basic, lebih baik kita ringkas saja codingnya seperti yang ada dibawah ini.


Prinsipnya adalah:

• Tanggal awal akan selalu ditetapkan sebagai tanggal yang lebih kecil dari tanggal sekarang, dan tidak bisa lebih besar dari tanggal sekarang
• Tanggal akhir akan selalu ditetapkan sama dengan tanggal sekarang dan atau lebih besar dari tanggal awal, namun tidak boleh lebih besar dari tanggal sekarang.

Mengapa demikian?
Logikanya adalah, data yang pernah diinput atau yang disimpan di database, tidak boleh dan tidak pernah lebih besar dari tanggal sekarang. Dalam beberapa kasus, mungkin saja data disimpan untuk diproses atau divalidasi pada tanggal yang akan datang (ikuti artikel lainnya yang membahas masalah ini). Namun disini dibuat pengecualiannya.

Dibawah ini adalah contoh script yang akan di panggil untuk memvalidasi dalam menentukan tanggal.

'************Fungsi untuk memvalidasi dua buah tanggal
'************@SawungKAMPRET
'---\\--------------------------------------------------
Public Sub CekDTPic_TANGGALKU(DT_1 As DTPicker, DT_2 As DTPicker)
    If DT_2.Value > Date Then
        MsgBox "Tanggal Akhir tidak boleh lebih BESAR dari tanggal Sekarang", vbCritical, "ERROR Tanggal....."
        DT_2.Value = Date
        DT_2.SetFocus
        Exit Sub
    ElseIf DT_1.Value > Date Then
        MsgBox "Tanggal Awal tidak boleh lebih BESAR dari tanggal Sekarang", vbCritical, "ERROR Tanggal....."
        DT_1.Value = Date
        DT_1.SetFocus
        Exit Sub
    ElseIf DT_1.Value > DT_2.Value Then
        MsgBox "Tanggal Awal tidak boleh lebih BESAR dari tanggal Akhir" & vbNewLine & _
        "• • • • • • • • • Demikian sebaliknya • • • • • • • • • " & vbNewLine & _
        "Tanggal Akhir tidak boleh lebih KECIL dari tanggal Awal", vbCritical, "ERROR Tanggal....."
        DT_1.Value = DT_2.Value
        DT_1.SetFocus
        Exit Sub
    End If
End Sub

Cara menggunakannya :

• Jalankan Microsoft Visual Basic 6.0
• Masukkan 2 komponen DTPicker dan 1 komponen CommonButton seperti pada gambar dibawah ini

• Buatlah 1 module dan masukkan script yang ada diatas dalam module tersebut.
• Masukkan script dibawah ini pada Coding Window yang ada pada form anda, untuk memanggil fungsi tanggal seperti pada script diatas.

Private Sub DTPicker1_Change()
    CekDTPic_TANGGALKU DTPicker1, DTPicker2
End Sub

Private Sub DTPicker1_Click()
    CekDTPic_TANGGALKU DTPicker1, DTPicker2
End Sub

Private Sub DTPicker2_Change()
    CekDTPic_TANGGALKU DTPicker1, DTPicker2
End Sub

Private Sub DTPicker2_Click()
    CekDTPic_TANGGALKU DTPicker1, DTPicker2
End Sub

• Selesai, dan sekarang tekan F5 pada saat project anda dalam keaadaan aktif, lalu otak atik tanggalnya, dan anda akan tau kegunaanya.

Semoga artikel ini bermanfaat.

*VB-Share* Anda sedang membaca artikel tentang Cara Cepat Memvalidasi Tanggal pencarian awal dan tanggal akhir dan anda bisa menemukan artikel ini di alamat url http://vb-share.blogspot.com/2013/09/cara-cepat-memvalidasi-tanggal.html, silakan sebar luaskan atau copy paste artikel ini, namun jangan lupa untuk meletakkan link Cara Cepat Memvalidasi Tanggal pencarian awal dan tanggal akhir sebagai sumber informasinya.

LIKE dan SHARE jika arikel ini bermanfaat !!!