[ناجي إبراهيم]

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

توجد الدالة DateAdd للحصول على تاريخ بعد إضافة فترة زمنية إلى تاريخ محدد أو طرح فترة زمنية منه.

الصيغة العامة لهذه الدالة هي:

كود :

Dim Date1 As Date
Dim Date2 As Date

Date2 = DateAdd(interval, number, Date1)

حيث:
Date1: التاريخ الذي لديك (التاريخ الأول).
Date2: التاريخ الناتج من عملية الإضافة أو الطرح (التاريخ الثاني).
interval: من النوع String يحدد نوع الفترة. استعمل "d" من أجل الأيام.
number: طول الفترة بالوحدة المحددة في interval. إذا كان هذا العدد موجباً (إضافة) فإن التاريخ الناتج (Date2) يكون بعد التاريخ الأول (Date1)، و إذا كان هذا العدد سالباً (طرح) فإن التاريخ الناتج (Date2) يكون قبل التاريخ الأول (Date1).

مثال:

كود :

Dim FirstDate As Date
    Dim LastDate As Date
    
    FirstDate = #4/21/2014#
    LastDate = DateAdd("d", 17, FirstDate)
    
    MsgBox CStr(LastDate)

نرجو الاستفادة و السلام.