كود لاحضار تاريخ اخر يوم فى الشهر ومنه يمكن حساب عد ايام الشهر فىتاريخ معين يمكن تطويرها واستخدامها
Function L_DAY_MONTH(MY_DATE As Variant) As Variant
Dim my_d, my_m, my_y As Integer
my_d = Day(MY_DATE)
my_m = Month(MY_DATE)
my_y = Year(MY_DATE)
If my_m = 12 Then
my_m = 1
my_y = my_y + 1
Else
my_m = my_m + 1
End If
MY_DATE = "01" & "/" & my_m & "/" & my_y
L_DAY_MONTH = DateAdd("d", -1, MY_DATE)
End Functionمشكور يا طارق
و بعد اذنك حاشرحها ;) ;) ;)
الفكرة باختصار تتلخص فى ايجاد الشهر التالي
فان كان الشهر هو ديسمبر (12) يكون التالي هو واحد و السنة = السنة +1
و الا فالتالي هو رقم الشهر +1 و لا يوجد تغيير فى السنة
و بعد الحصول علي الشهر التالي
يتم الحصول علي آخر يوم فى الشهر الحالي بطرح يوم من أول يوم فى الشهر القادم عن طريق الدالة Dateadd
حلوة:D :D
جميع ما ذكرتماه هنا حلو :)
الشيئ اللي مش حلو هو أين يوضع هذا الكود :confused:
لنفرض انك فى حاجة لاظهار آخر يوم فى الشهر المناظر لأي تاريخ
و ليكن التاريخ اسمه Mydate أي اسم الحقل أو اسم مربع النص
فمثلا اذا كان موعد سداد قسط معين آخر الشهر فتحسب تاريخ السداد عن طريق الدالة سالفة الذكر ، بعد وضعها فى موديول عام اذا كان استخدامها عاما أو فى الموديول الخاص بالفورم او التقرير اذا كان استخدامها لفورم او تقرير واحد
و بعد ذلك تحصل علي تاريخ آخر الشهر المناظر للحقل أو مربع النص المسمي Mydate عن طريق وضع الجملة الآتية فى مصدر بيانات مربع نص جديد
L_DAY_MONTH (Mydate)
وبذلك يظهر آخر يوم فى الشهر الخاص بالتاريخ Mydate فى مربع النص الجديد
أيضا من الممكن استخدامها فى اي عملية حسابية سواء عن طريق الكود أو فى الاستعلام لحساب المتبقي من الايام علي آخر الشهر مثلا
يمكن بها حساب عدد ايام الشهر
فكرة جميلة حقا :
ولكن توضيح أكثر للأخوة فى كيفية استعمالها .
1- ضع الكود فى وحدة نمطية عامة . ( أنا استخدمها خاصة بالنموذج فقط ) .
2- إنشء فى النموذج مربع نص وسمه MY_DATE
3- إنشء فى نفس النموذج مربع نص آخر واجعل مصدر البيانات فيه ما يلي : =L_DAY_MONTH([MY_DATE])
4- اكتب أي تاريخ فى مربع النص الأول ستجد مربع النص الثاني يخبرك بآخر يوم للشهر الذي وضعته .
أخيرا : هذه الطريقة مفيده جدا فى حالة الأقساط .
أشرف خليل
استخدم هذه الدالة إذا استصعب عليك الكود:
غير كلمة
FeildName
إلى اسم حقل التاريخ الذي تريد تحويله إلى نهاية الشهر
DateSerial(Year([FeildName]);Month([FeildName])+1;1)-1
هذا الموضوع مغلق.
