كود يعطي التاريخ الميلاد القادم تلقائيا

اخي بلالي

والله اننا لم نفهم منك شيئا

او ماذا تريد بالضبط

حاول تشرح الفكره بطريقة صحيحه او تضع مثال لما تريد عمله

السلام عليكم...

شكرا جزيلا للاخت زهرة.

لتوضيح السؤال :

مثلا ، تاريخ ميلادي هو 03/04/1988

اردت أدخل هذا التاريخ في الحقل ، وعندما يحين موعد هذا التاريخ تظهر رسالة تنبيه.

وشكرا..

يا أستاذ بلالي

هل تقصد أن ينبهك البرنامج بيوم ميلادك من كل عام

بالفيجوال بيسك

If DatePart("d", Now) = DatePart("d", text1) And DatePart("m", Now) = DatePart("m", text1) Then

MsgBox "Today is your birthday"

End If

هذه دالة وإجراء لكيفية استدعاء الدالة

 

Function NextBirthday(Birthday As Date) As Date
  Dim Years As Integer
  Dim NextYear As Byte

  NextBirthday = Birthday
  Years = year(date) - year(Birthday)
  If Years < 0 Then Exit Function

  NextYear = Abs(Format(date, "mmdd") < Format(Birthday, "mmdd"))
  NextBirthday = DateAdd("yyyy", Years + NextYear, Birthday)
End Function

Sub GetBirthday()
  MsgBox NextBirthday(DateSerial(2004, 2, 29))
End Sub

يمكن عمل دالة أكثر اختصارا ولكن فضلت استخدام دالة

DateAdd

فهي ذكية وخصوصا في الذين يصادف ميلادهم 29 فبراير من السنين الكبيسة

السلام عليكم جميعا...

شكرا جزيلا من اعماق القلب الى كل الأخوة الذين شاركوا في الرد على السؤال.

وبالتوفيق والنجاح إن شاء الله.