ارجوا من السادة الزملاء الرد علي هذا الاستفسار
عندي اداة dtpaker اسمها تاريخ دخول الخدمة واداة كمبوبوكس اسمها خيارات الدفع هذة الاداة فيها الدفع كل شهر - 3شهور- 6شهور - سنة
وعندي تيكست بوكس اسمة تاريخ تحصيل الاشتراك المطلوب عملة هو اننا لما اختار من خيارات الدفع شهر يزود 30 يوم علي تاريخ دخول الخدمة ويظهرها في التكست بوكس بتاع تاريخ تحصيل الاشتراك ونفس الوضع يردة لما يختار 3 شهور يزود 90 يوم علي تاريخ دخول الخدمة وهكذا برة 6شهور والسنة
بســم الله الـرحمــن الرحيــم
لا خير في كاتم العلم ...زكاه العلم ...التعليم صدقة جارية
السلام عليكم ورحمة الله وبركاته
اخي العزيز
ولقد قمت لك بصنع مثال بسيط حتى تستطيع استيعاب ما اقوله , إن شاء الله يلبي طلبك ...
وهذا المثال يعمل عن طريق استخدام الداله DateAdd
حيث ان هذه الدالة تقوم بالاضافه على التاريخ المعطى اليها بناءا على المعامل .
والمعامل هو الشيئ الذي تحدده للداله للتعامل به في عملية الاضافه على التاريخ المعطى لها سواء( يوم - شهر - سنه ..... الخ)
حيث انك تريد ان في مثالك تريد أن تضيف على تاريخ ما ايام معينه اذا سيكون المعامل بالايام فسيكون المعامل هو d .
والداله تعمل مع الوقت ايضا ....
وهذه هي معاملات هذه الدالة ......
- سنة >>>>>> yyyy
- ربع سنة >>>>>> q
- شهر >>>>>> m
- يوم في سنة >>>>>> y
- يوم >>>>>> d
- أسبوع >>>>>> ww
- ساعة >>>>>> h
- دقيقة >>>>>> n
- ثانية >>>>>> s
مثلا هذا المثال لأضافة 30 يوم على التاريخ الحالي:
Msgbox DateAdd("d", 30, Date)ملحوظه :
Date >>> تعيد لك التاريخ الحالي للنظام ( وهذا كمثال )
تم تعديل هذه المشاركة بواسطة A7med_prof في 29 أبريل 2007 في 14:58
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
المثال المرفق يختلف عن مثال الاخ A7med_prof
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
الأخ الفاضل ...
أرجوأ ان يحقق هذا المثال ما تريد، بأستخدام (MS-VB6)
كذلك راجع: اجراء عمليات حسابية علي الوقت
رابط الموضوع: /index.php?showtopic=123243
Eng. Usama El-Mokadem كتب:الأخ الفاضل ...يمكنك أستخدام دالة DateAdd فى الأضافة أو الطرح (رقم سالب) من الوقت أو التاريخ، فلطرح 10 دقائق من 2:00 (أضف -10) أستخدم:
MsgBox DateAdd("n", -10, CDate("2:00"))حيث n تعبر عن الدقائق، كذلك:
yyyy: تعبر عن السنين
q: ربع سنة (3 اشهر)
m: شهر
d: يوم
ww: أسيوع
h: ساعة
n: دقيقة
s: ثانية
شكراً
شكراً
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 29 أبريل 2007 في 14:00
Nothing is impossible, the word impossible itself says that: I M - Possible
If Combo1.Text = "شهر" Then
Text2.Text = DTPicker1.Value + 30
End If
If Combo1.Text = "3شهور" Then
Text2.Text = DTPicker1.Value + 90
End If
If Combo1.Text = "6شهور" Then
Text2.Text = DTPicker1.Value + 180
End If
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
السلام عليكم ورحمة الله وبركاته ..
بالفعل مثالك صحيح 100 %
ولكن من الافضل عند الاضافة استخدام الداله DateAdd
حتى تعطي له ليونه في التعامل من حيث المعاملات
بالتوفيق .......
مجهود تشكر عليه اخي / kindy_ibrahim
بالتوفيق ........
A7med_prof
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
هذا الموضوع مغلق.