Re: [Programmer-VB] fungsi Date validation

Sat, 06 May 2006 09:40:55 -0700

fungsi isdate ada kelemahannya, sebagai contoh jika anda memasukkan baik 1/30/2006 ataupun 30/1/2006, dua2nya akan mengembalikan nilai true. mungkin itu juga lah penyebab masalah bro Nyoman, menurut saya anda tidak perlu pakai fungsi isdate kalo sudah bikin function sendiri. cmiiw
 
----- Original Message -----
Sent: Saturday, May 06, 2006 9:59 AM
Subject: RE: [Programmer-VB] fungsi Date validation

Buat cek tanggal pake fungsi isdate(varTgl) aja.

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

<*> 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



Kirim email ke