[vbnet]

-
جرب التالي

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim provider As Globalization.CultureInfo = Globalization.CultureInfo.InvariantCulture

    Dim d1 As Date = Date.ParseExact(Date.Now.ToString("d/M/yyyy", provider), "d/M/yyyy", provider)
    Dim d2 As Date = Date.ParseExact("15/5/2014", "d/M/yyyy", provider)

    If d2 > d1 Then
        MsgBox("التاريخ المدخل أكبر من تاريخ اليوم")
    End If

End Sub