[أسامة السالمي]

الكود :

PHP كود :

Dim da1, da2 As Date
        da1 = Today
        da2 = DateTimePicker1.Value

        Dim DayDiff As Integer

        DayDiff = DateDiff(DateInterval.Day, da1, da2)

        If DayDiff <= "0" Then
            MsgBox("منتهي")

        ElseIf DayDiff = Val("3") Or DayDiff = Val("2") Or DayDiff = Val("1") Then
            MsgBox("تنبيه")

        ElseIf DayDiff >= Val("4") Then
            MsgBox("ساري")

        End If 


أتمنى يكون هذا اللي تحتاجه, لأني ما قدرت أنزل المشروع