[ تمت الإجابة ]حقل تكست يحتوي قيمة تاريخ احتاج لتجزءة هذا التاريخ الى ثلاثة حقول لليةم والشهر والتاريخ

ما رأيك بالدالة Split التي تفصل نصاً معيناً، انظر معي:

Dim MyArray() As String
MyArray = Split(Text1.Text, "/")
Text2 = MyArray(0)
Text3 = MyArray(1)
Text4 = MyArray(2)

فهنا عبأنا المصفوفة بالأرقام المكتوبة في Text1 بعد فصلها بعلامة /.

تسلم يا كابتن حولة الدالة دي split

زبطت العملية لكن استفسارين لو سمحت

-استخدمنا مثال سابق بمدخل ارقام ! هل تستخدم هذه الدالة ايضا في حال كون التكست نصا؟ ان كانت الاجابة بلا ما النظير لتلك الدالة في استخدام النصوص؟

-كلمة MyArray هل هي كلمة دالة محجوزة في الفجوال ؟

وشكرا ليك

اقتباس

-استخدمنا مثال سابق بمدخل ارقام ! هل تستخدم هذه الدالة ايضا في حال كون التكست نصا؟ ان كانت الاجابة بلا ما النظير لتلك الدالة في استخدام النصوص؟

لماذا لا تجرب بنفسك؟ :) انظر إلى هذا الموضوع:

مثال على Split

اقتباس

-كلمة MyArray هل هي كلمة دالة محجوزة في الفجوال ؟

طبعاً لا، ابحث في المنتدى أو في Google عن "المصفوفات في فيجوال بيسك"، وهو موضوع مهم جداً يجب أن تعرفه وتتقنه بإذن الله، فالاسم MyArray هو اسم مجموعة متغيرات، يمكنك استبدالها بـShadi مثلاً.

حاول البحث عنها.

وفقك الله :)

اها هو دة الكلام

انا فعلا بحاجة لتمييز مثل هاي الامور الاساسية

جار الاطلاع والتركيز على موضوع المصفوفات

شكرا يا كابتن

الطريقة السابقة هو لتقسيم مابداخل التكست بكس باستخدام الحرف "/" وهي نافعة في حالة ادخال التاريخ بهذا الاسلوب 12/10/2009

ولكن اذا كان ادخال التاريخ بهذا الاسلوب 12-10-2009

فستجد نها لن تعطي نتيجة .

اما الطريقة الصحيحه والادق هي كالتالي :

Dim d,m,y as integer

  if isdate(text1.text) = false then 
		msgbox " يجب ان يكون الادخال تاريخ"
  else
	 d=day(text1.text)
	m=month(text1.text)
	y=year(text1.text)
end if

تحياتي

فعلاً معلومة جميلة، جزاك الله خيراً.

لكن هذا لا يعني أن تتوقف عن تعلم المصفوفات يا شادي ;)

شكرا لك استاذ عماني على الاضافة الجميلة

اذن هذه الطريقة تعمل مع - او / في التاريخ وهذا شيئ جميل

شكرا لكما