RE: [Programmer-VB] fungsi Date validation

[Andhi Y]

Pakai tanda kurung (), menjadi :       If Not (Val(cTgl) >= 1 And Val(cTgl) <= 31) Then         GoTo salahtanggal     End If         If Not (Val(cBln) >= 1 And Val(cBln) <= 12) Then         GoTo salahtanggal     End If       If Not (Val(cThn) >= 1990 and Val(cThn) <= 2100) Then         GoTo salahtanggal       End If   From: gunartha.nyoman [mailto:[EMAIL PROTECTED] Sent: Friday, 05 May 2006 6:24 AM To: Programmer-VB@yahoogroups.com Subject: [Programmer-VB] fungsi Date validation   Dear Miliisier   Saya bikin fungsi untuk cek validasi tanggal tanggal sbb :   Function cektanggal(cData As String) As Boolean         Dim cTgl, cBln, cThn As String     Dim x As Integer         cTgl = Mid(cData, 1, 2)     cBln = Mid(cData, 4, 2)     cThn = Mid(cData, 7, 4)         If Not Val(cTgl) >= 1 And Val(cTgl) <= 31 Then         GoTo salahtanggal     End If         If Not Val(cBln) >= 1 And Val(cBln) <= 12 Then         GoTo salahtanggal     End If       If Not Val(cThn) >= 1990 and Val(cThn) <= 2100 Then         GoTo salahtanggal       End If       On Error GoTo salahtanggal     cektanggal = IsDate(cTgl & "-" & cBln & "-" & cThn)         Exit Function     salahtanggal:     cektanggal = False     End Function   Private Sub Command3_Click()     x = cektanggal(txtTGL.text)     MsgBox x end Sub   Kenapa hasilnya true ya... ? padahal saya masukakan data : 01-15-2006 ( tanggal 1 bulan 15 tahun 2006) seharusnya hasilnya false Apa yg salah ya kira 2 ?   Terima kasih atas bantuannya   Sincerely yours, Nyoman Gunartha Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.