الاخوه الكرام
السلام عليكم ورحة وبركاته
كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟
نامل من الله المساعده في برنامجي المرفق
والله يحفظكم ويرعاكم
السلام عليكم...
توجد الدالة 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)
نرجو الاستفادة و السلام.
(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)
نرجو الاستفادة و السلام.
------
اخي العزيز
السلام عليكم ورحمة وبركاته
ممكن التعديل على برنامجي حتى افهم منك اكثر! ؟
برنامجي مجود في اﻻول مشاركه لنا
والله يحفظكم ويرعاكم
Dim FirstDate As Date
Dim LastDate As Date
FirstDate = text1.text
LastDate = DateAdd("d", text2.text, FirstDate)
text3.text=LastDate
(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
----------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني الف شكر وتقدير على ما تقدمه لنا من دعم والله يحفظكم ويرعاكم