اسئلة حول التاريخ

:confused::confused::confused:

السلام عليكم

اخي الكريم بالنسبة لإضافة تاريخ معين إلى التاريخ الحالي استخدم الدالة DateDiff

شكرا لك اخي الكريم

لقد فكرت بهذا الامر لاحقا بعد طرح الموضوع الا انني لم استطع حل السؤال الاول

شكرا لك

بعد التحية

اخي الكريم جرب هذا الكود وخبرني بالنتائج /

Dim FirstDate As Date   ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m"   ' "m" specifies months as interval.
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg

بالتوفيق .

الف شكر لك اخي الكريم وبارك الله فيك على مساعدتك

اخوك

عبدالله