منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ (/showthread.php?tid=2613)

كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ - Microformt - 19-04-14

الاخوه الكرام
السلام عليكم ورحة وبركاته
كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟
نامل من الله المساعده في برنامجي المرفق
والله يحفظكم ويرعاكم

RE: كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ - ناجي إبراهيم - 19-04-14

السلام عليكم...

توجد الدالة DateAdd للحصول على تاريخ بعد إضافة فترة زمنية إلى تاريخ محدد أو طرح فترة زمنية منه.

الصيغة العامة لهذه الدالة هي:

كود :
Dim Date1 As Date
Dim Date2 As Date

Date2 = DateAdd(interval, number, Date1)

حيث:
Date1: التاريخ الذي لديك (التاريخ الأول).
Date2: التاريخ الناتج من عملية الإضافة أو الطرح (التاريخ الثاني).
interval: من النوع String يحدد نوع الفترة. استعمل "d" من أجل الأيام.
number: طول الفترة بالوحدة المحددة في interval. إذا كان هذا العدد موجباً (إضافة) فإن التاريخ الناتج (Date2) يكون بعد التاريخ الأول (Date1)، و إذا كان هذا العدد سالباً (طرح) فإن التاريخ الناتج (Date2) يكون قبل التاريخ الأول (Date1).

مثال:

كود :
Dim FirstDate As Date
    Dim LastDate As Date
    
    FirstDate = #4/21/2014#
    LastDate = DateAdd("d", 17, FirstDate)
    
    MsgBox CStr(LastDate)

نرجو الاستفادة و السلام.

RE: كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ - Microformt - 20-04-14

(19-04-14, 11:13 PM)ناجي إبراهيم كتب : السلام عليكم...

توجد الدالة DateAdd للحصول على تاريخ بعد إضافة فترة زمنية إلى تاريخ محدد أو طرح فترة زمنية منه.

الصيغة العامة لهذه الدالة هي:

كود :
Dim Date1 As Date
Dim Date2 As Date

Date2 = DateAdd(interval, number, Date1)

حيث:
Date1: التاريخ الذي لديك (التاريخ الأول).
Date2: التاريخ الناتج من عملية الإضافة أو الطرح (التاريخ الثاني).
interval: من النوع String يحدد نوع الفترة. استعمل "d" من أجل الأيام.
number: طول الفترة بالوحدة المحددة في interval. إذا كان هذا العدد موجباً (إضافة) فإن التاريخ الناتج (Date2) يكون بعد التاريخ الأول (Date1)، و إذا كان هذا العدد سالباً (طرح) فإن التاريخ الناتج (Date2) يكون قبل التاريخ الأول (Date1).


مثال:

كود :
Dim FirstDate As Date
    Dim LastDate As Date
    
    FirstDate = #4/21/2014#
    LastDate = DateAdd("d", 17, FirstDate)
    
    MsgBox CStr(LastDate)

نرجو الاستفادة و السلام.

------
اخي العزيز
السلام عليكم ورحمة وبركاته
ممكن التعديل على برنامجي حتى افهم منك اكثر! ؟
برنامجي مجود في اﻻول مشاركه لنا
والله يحفظكم ويرعاكم

RE: كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ - asto - 21-04-14

Dim FirstDate As Date
Dim LastDate As Date

FirstDate = text1.text
LastDate = DateAdd("d", text2.text, FirstDate)
text3.text=LastDate

RE: كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟ - Microformt - 21-04-14

(21-04-14, 11:49 AM)asto كتب : Dim FirstDate As Date
Dim LastDate As Date

FirstDate = text1.text
LastDate = DateAdd("d", text2.text, FirstDate)
text3.text=LastDate

----------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني الف شكر وتقدير على ما تقدمه لنا من دعم والله يحفظكم ويرعاكم