[mesm23]

لا يظهر شى

كود :

Label1.Text = Date.Today

        Dim x As String = TextBox1.Text
        Dim wd As Long = DateDiff("d", Date.Today, x)
        If x = Date.Today Then


            MsgBox("لا", MsgBoxStyle.Exclamation)

        ElseIf wd.ToString = 1 Then

            MsgBox("لم يتبقى الا يوم على المقابلة")

        End If