كيف نحصل على قيمة متغير بالطريقة التي نحصل فيها على نوعه ?

ما تعودت أرفع مواضيعي

ولكنه إلحاح السائل *-)

سلام

تحياتي للجميع

أهلا Accessna

- صدقني ما فهمت ماتقصده إلى الآن!!

؟. هل تقصدر إرجاع القيمة. فالدالات التي ترجع القيم كثيرة وأعتقد أنها لا تخفى عليك!!!

؟. أم أن هناك أمراً يشغل بالك. حبذا لو بينته

تحياتي

القحم

شكرا أخي القحم .. توني فاهم "ليش" ماحد راضي يشاركني في موضوعي وأنا كنت حاسب أنها محبة مؤجلة لم تأتي بعد :D

لقد كتب في أحد المواضيع هذا الكود :

Function LastVisit(V1, V2, V3, V4, V5) As Variant
  Dim V(1 To 5)
  Dim I As Byte
  Dim Max

  V(1) = V1: V(2) = V2: V(3) = V3: V(4) = V4: V(5) = V5

  Max = Null
  For I = 1 To 5
	If Not IsNull(V(I)) Then
	  If IsNull(Max) Then Max = V(I)
	  If V(I) > Max Then Max = V(I)
	End If
  Next I

  LastVisit = Max
End Function

لو تلاحظ لاختصار الكود احتجت لاستخدام مصفوفة تحتوي على خمسة متغيرات

ثم استخدمت حلقة تكرارية بدلا من تكرار الشروط بعدد المتغيرات

طبعا ممكن تقول وليش العذاب هذا كله ، كلها خمسة متغيرات

فأرد عليك وأقول "افرض" أنه عندي على سبيل المثال عشرين متغير أو ثلاثين !! فهل سأكرر كل هذه الشروط وياترى كم من أخطاء الكتابة ستظهر حتى ينجح معي في النهاية

أطلت عليك أكيد أنت فاهم الآن .. لا تقولي مافهمت الآن