أرجو من المختصين

وعليكــم السـلام ورحمة الله وبركاتـه..

لمعرفة الطالب حامل الغرامه .. قومي بجمع الطلاب كافة واساليهم .. او اسالي امين المكتبة :D

من المؤكد ان هناك تاريخ للاستعارة ومدة محددة .. اذا عند رد الكتاب سيتم ادخال تاريخ رده ومن هنا نحسب المدة

مثلا لو افترضنا ان تاريخ الاستعاره موجود في متغير اسمه MinDate وتاريخ رد الكتاب MaxDate

والـ MinDate هو 2009/04/13 .. والـ MaxDate هو 2009/04/19 والحد الاقصى للاستعاره 3 ايام

والمطلوب الآن ملأ المتغير Counter بمدة الإستعاره .. علما بان اليوم الأول غير محسوب في المدة

Counter = DateDiff("D", MinDate, MaxDate)

بهذا سيكون الـ Counter قيمته 6 .. اي اكثر من الحد الأقصى بـ 3 ايام

لحساب الغرامة في المتغير Penalty الآن ولو افترضنا ان تاخير اليوم الواحد بغرامة جنيهان ونصف .. اذا

Penalty = (Counter - 3) * 2.5
Else
Penalty = 0
End If

	If Counter > 3 Then

انظري الكود باكمله الآن اذا اردتي الإستنتاج بدلا من الشرح

Dim MaxDate As Date
Dim Counter As Long
Dim Penalty As Double

MinDate = DateSerial(2009, 4, 13)
MaxDate = DateSerial(2009, 4, 19)

Counter = DateDiff("D", MinDate, MaxDate)

If Counter > 3 Then
Penalty = (Counter - 3) * 2.5
Call MsgBox("الغرامة هي : " & Penalty, vbInformation Or vbMsgBoxRight Or vbMsgBoxRtlReading)
Else
Penalty = 0
Call MsgBox("لا توجد غرامة", vbInformation Or vbMsgBoxRight Or vbMsgBoxRtlReading)
End If

	Dim MinDate As Date

أرجو من المختصين

مواضيع مشابهة