rgds
--- Andhi Y <[EMAIL PROTECTED]> wrote:
> 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: [email protected]
> 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
>
>
>
>
>
>
>
>
> SPONSORED LINKS
>
>
> Programmer
>
<http://groups.yahoo.com/gads?t=ms&k=Programmer&w1=Programmer&w2=Indonesia&w
>
3=Basic+programming+language&w4=Computer+programming+languages&w5=Programmin
>
g+languages&w6=Java+programming+language&c=6&s=157&.sig=QQ3jf-qPyCuDVOqmjxXL
> qQ>
>
> Indonesia
>
<http://groups.yahoo.com/gads?t=ms&k=Indonesia&w1=Programmer&w2=Indonesia&w3
>
=Basic+programming+language&w4=Computer+programming+languages&w5=Programming
>
+languages&w6=Java+programming+language&c=6&s=157&.sig=gwDT36aV8hG5doSQaoUwS
> A>
>
> Basic
>
<http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Programme
>
r&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languag
>
es&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=g8R4
> hday0lm5D2hL5lG5aQ> programming language
>
>
> Computer
>
<http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Progr
>
ammer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+lan
>
guages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=
> RLdM7FZAm3K7raX0D8KsjA> programming languages
>
> Programming
>
<http://groups.yahoo.com/gads?t=ms&k=Programming+languages&w1=Programmer&w2=
>
Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5
>
=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=CtRXYvnoy
> 1O17UC430cphA> languages
>
> Java
>
<http://groups.yahoo.com/gads?t=ms&k=Java+programming+language&w1=Programmer
>
&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+language
>
s&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=XQJC4
> fZro9pIX1bkqBwT8w> programming language
>
>
>
> _____
>
> YAHOO! GROUPS LINKS
>
>
>
> * Visit your group "Programmer-VB
> <http://groups.yahoo.com/group/Programmer-VB> " on
> the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
<mailto:[EMAIL PROTECTED]>
>
>
> * Your use of Yahoo! Groups is subject to the
> Yahoo!
> <http://docs.yahoo.com/info/terms/> Terms of
> Service.
>
>
>
> _____
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
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.
