تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحة وبركاته
كيف احصل على تاريخ نهاية اليعارة بعد إدخال عدد ايام اليعارة ؟؟
نامل من الله المساعده في برنامجي المرفق
والله يحفظكم ويرعاكم


الملفات المرفقة
.rar   smart2.rar (الحجم : 1.54 ك ب / التحميلات : 96)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...

توجد الدالة 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)

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#3
(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)

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

------
اخي العزيز
السلام عليكم ورحمة وبركاته
ممكن التعديل على برنامجي حتى افهم منك اكثر! ؟
برنامجي مجود في اﻻول مشاركه لنا
والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#4
Dim FirstDate As Date
Dim LastDate As Date

FirstDate = text1.text
LastDate = DateAdd("d", text2.text, FirstDate)
text3.text=LastDate
الرد }}}
تم الشكر بواسطة: Microformt
#5
(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

----------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني الف شكر وتقدير على ما تقدمه لنا من دعم والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
Question [vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ Microformt 4 655 28-09-22, 04:54 PM
آخر رد: Microformt
Question [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ Microformt 2 721 04-08-22, 10:21 PM
آخر رد: Microformt
  تاريخ أول / أخر تاريخ فى الشهر فى سنة محددة aboezzat84 0 889 02-01-21, 04:45 AM
آخر رد: aboezzat84
  [سؤال] إدخال الوقت و التاريخ Abdellah 3 1,514 03-06-20, 04:17 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيف استطيع ادراج تاريخ من خلال التقويم مباشرة iisys 4 3,395 23-04-20, 03:31 AM
آخر رد: alaanet_system@yahoo.com
  تحويل تاريخ الجهاز لفورمات محدد hannileo 1 1,232 16-04-20, 01:12 AM
آخر رد: AL_BRNS
Question [vb6.0] كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ Microformt 5 1,943 12-04-20, 12:53 AM
آخر رد: AL_BRNS
  طلب كواد تنفيذه كل نهاية سنه ahmed20 4 1,691 14-03-20, 03:47 AM
آخر رد: Ahmed_Mansoor
  البحث بين تاريخ باستخدام ادة calender date.ocx gonm64 4 1,709 05-01-20, 12:15 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم