10-06-14, 12:27 PM
تفضل اخي هدا ما استطعت ان افيدك به اتمنى ان يكون هو المطلوب
PHP كود :
' متغير بالتاريخ الدي سيدخله الشخص للمقابلة
Dim x As String = "12/06/2014"
' حساب الفرق بين تاريخ اليوم و تاريخ الدي ادخله الشخص
' الفرق يكون بالايام
Dim wd As Long = DateDiff("d", Date.Now, x)
' هنا الا يكون موعد المقابلة هو نفس تاريخ اليوم او اصغر منه
If x <= Date.Now Then
' رسالة تفيد بتغير تاريخ المقابلة
MsgBox("لايمكنك اخد موعد غير تاريخ المقابلة")
' ادا كان الفرق بين التاريخين هو 1 يعني يوم
ElseIf wd.ToString = 1 Then
' تضهر هده الرسالة
MsgBox("لم يتبقى الا يوم على المقابلة")
End If
