زيادة العمر تلقائيا كل سنة(قاعدة بيانات مشتركين)

[ماجد القثمي]

السلام عليكم ورحمة الله وبركاته

أخواني الاعزاء

ارجو الافادة

لدي ملف اكسل, في احدى الشيتات يوجد قاعدة بينات لمشتركين(الاسم العمر العنوان)

اريد ان يتحدث العمر لكل مشترك بحيث تضاف قيمة(1) مثلا في تاريخ 30 ديسمبر كل سنه

لكي يزيد عمر المشترك ويصبح محدث سنوايا

الكود الذي احاول كتابته هو:

for each cl in ...

if date = (30 december)from every year))then

array.value= array.valuue+1

end if

end sub

استصعب علي كتابة الشرط وهو اذا كان تاريخ اليوم هو ال30 من ديسمبر من كل سنة, اذا اضافه قيمة واحد على قيمة الخليه(العمر)

 

شكرا لم سلفا

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم

جرب الكود التالي لاختبار شرط التاريخ مطابق لتاريخ اليوم

Sub Test()
    If DateSerial(Year(Date), 10, 27) = Date Then
        MsgBox "OK. Do It", 64
    Else
        MsgBox "Not Required Date", vbExclamation
    End If
End Sub

قم بتغيير الأرقام 10 إلى 12 (شهر ديسمبر) ، وغير اليوم 27 إلى 30 أو 31 آخر يوم في ديسمبر ..
هذا مجرد نموذج يمكنك التعديل عليه ليناسب احتياحاتك ..
المهم في الكود أن تتعلم كيف تضع شرط لتطابق تاريخ مع تاريخ اليوم

[ماجد القثمي]

شكرا استاذ ياسر

هذا الكود هو ما اريده بالضبط

الف شكر