[Programmer-VB] mohon di check

[gunartha.nyoman]

Dear Semuanya   Saya bikin fungsi untuk cek 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 Or Val(cThn) <= 2100 Then         GoTo salahtanggal       End If       On Error GoTo salahtanggal     cektanggal = IsDate(cTgl & "-" & cBln & "-" & cThn)         Exit Function     salahtanggal:     cektanggal = False     End Function Kalau saya masukkan nilai 12-15-2005 : kenapa hasilnya gak bisa false ya... ? 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.