الأعضاء الكرام
لدي استفسار أرجو أن أجد له حلا و هو:
إذا كان لدي ميزانية شهرية في البيت و قد قسمتها إلى بنود و سوف أقوم في كل شهر بشراء حاجيات و أخصصها حسب البنود (مثلا: اشتريت لحم 4 كيلو بقيمة 40 ريال تصرف من بند مواد غذائية . و هكذا)
و قد قمت بعمل تصور لا أدري إن كان صحيحا أم لا للتوضيح فأرجو الإفادة :
Dim Budget _ Amount As Currency ‘الميزانية العامة ‘A
Dim Sub _ Budget _ Amount As Currency ‘ البند ‘B
Dim Purchase _ Amount As Currency ‘ طلبات الصرف ‘C
Sum(B) = (a)
If Sum(B) > (a) ‘more then
Msgbox”over amount”
End if
If (B) = 0 then (a)=(a)
Else (a) = (a) – (B)
End if
Sum© = (B)
If Sum© > (B) ‘more then
Msgbox”over amount”
End if
If © = 0 then (B)=(B)
Else (B) = (B) – ©
End if
و شكرا لكم مقدما
أخوكم سعيد