كيفية إلغاء التقريب من محرر vba

[عبد الفتاح كيرة]

السلام عليكم

كل عام و أنتم بخير إخوتى الكرام

لدى كود برمجى يرجع فى أحد سطوره .5   يعنى نصف

i=i+.5

المشكلة أنه يرجع واحدا صحيحا

و السؤال

كيف يمكن إلغاء التقريب و هذا هو الكود كاملا و هو عبارة عن وظيفة تعد المدرسين على درجة كادر معين فى مادة معينة و تواجدهم فى المدرسة يساوى 1 أو 2 يعنى توجد كلى أو جزئى

المفروض فى التواجد الجزئى الذى يساوى 2 أن يرجع الكود نصفا

وفقكم الله

Private Function getcountW(ss2 As Double) As Double
Dim i As Integer
Dim skn As Integer
i = 0
skn = Me.kn
    Do Until rs.EOF
        If rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 1 Then
                    i = i + 1
        
       ElseIf rs.Fields("empdepart") = skn And rs.Fields("kader_n") = ss2 And rs.Fields("emp_hala") = 2 Then
                    i = i + Fix(0.5)
       
        End If
        rs.MoveNext
    Loop
  getcountW = i
    rs.MoveFirst
End Function

 

[عبد الفتاح كيرة]

شكرا لكم

تم حل المشكلة

جعلت المتغير رقما من نوع double

وغيرت خصائص الحقل إلى ثابت

ولا أدرى لأيهما الفضل فى الحل

جزاكم الله خيرا