Girilen Tarihi Kontrol Etmek

Aşağıdaki küçük kod parçasında girmiş olduğumuz tarihin uygun olup olmadığı kontrol edilmektedir.

Public Class Form1
    Public Function TarihKontrol(ByVal Tarih As String) As Boolean
        Dim Sonuc As Boolean = False
        Err.Clear()
        On Error GoTo Hata
        Dim Trh As DateTime = Tarih
Hata:
        If Err.Number <> 0 Then Sonuc = False Else Sonuc = True
        Return Sonuc
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ‘Aşağıdaki tarih kısmını Ay.Gün.Yıl sırasında yazınız.)
        MessageBox.Show(IIf(TarihKontrol("08.17.08"), "Girilen Tarih Uygun", "Girilen Tarih Uygun Değil"), "Tarih Kontrolü", MessageBoxButtons.OK)
    End Sub
End Class

Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN