اصمم برنامج لمزرعة ابقار والمزرعة كل فترة تقوم بوزن كل حيوان ويتم طرح الوزن الحالى من الوزن السابق لمعرفة الزيادة فى الوزن خلال هذه الفترة وتقارن بوزن معيارى وقد ارفقت ملف به جدول الاوزان ويحتوى على حقل تعريف الحيوان واخر لتاريخ الوزن واخر لقيمة الوزن وشكرا
كيف يمكن طرح قيمتين من حقل واحد
مغلق
أخي الكريم / ftp
لايوجد مرفقات
طريقة ارفاق الملفات هي :
إستعراض المجلد المراد إرفاقة بعد عملية ضغطة ، ثم زر أضف هذا المرفق ، وسوف تضاف الى المنتدى ،
وأهلا وسهلا بيك بيننا ،،،
مع خالص التحيات ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
أخي الكريم / ftp
تفضل ،،،
عملت لك تعديل على السريع ، عسى أن يكون حسب طلبك ،،،
حدث بعد في الحال
أو في مربع النص بعد التحديث
WeighNaw = Weight - WeighTagId
مع حالص التحيات ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
الاخ الفاضل عبد المانع شكرا على ماتقدمت به من رد
ولكن انا اريد الطرح يكون على حقل ال Weight
لكل تاريخين وليس على حقلى Weight و WeighTagId لان WeighTagId هو حقل يميز الوزن عند الولادة والوزن عند بداية التسمين والوزن اثناء التسمين
وشكراً
أخي الكريم إف تي بي
إليك الكود التالي للطرح بين تاريخين
Private Subاسم الحقل المراد وضع به نتيجة الطرح_Enter()
If IsNull(Meاسم الحقل المطروح منه) Or IsNull(Me.اسم حقل المطروح) Then Exit Sub
Me.اسم الحقل المراد وضع به نتيجة الطرح.Text = CalcAge(Me. اسم الحقل المطروح منه, Me. اسم الحقل المطروح )
End Sub
وفي الموديول كون موديول باسم CalcAge
Function CalcAge(vDate1 As Date, vdate2 As Date)
Dim vYears As Integer, vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
vYears = vMonths \ 12
vMonths = vMonths Mod 12
CalcAge = vYears & "سنة, " & vMonths & "شهر, " & vDays & "يوم"
End Function
( مقتبس عن الأخ/ مهند عبادي له التحية)
الله هو الموفق لسواء السبيل
هذا الموضوع مغلق.