Aşağıdaki yöntemle ortalama almaya çalışıyorum.
dersler formunda sınıf olarak 7a yı ders olarak fen i seçelim.
proje bölümünde düzenleme yapmaya çalışıyorum. yuvarlanması gereken bazı sayılarda doğru işlem yapıyor bazılarında yapmıyor.
2 ile 3 ün ortlamasını 2
3 le 4 ün ortalamasını 4 veriyor.
Buçukları yukarı yuvarlaması gerekiyor.
With CodeContextObject
If (IsNull(.P2)) Then
PO = P1
Else
PO = ([P1] + [P2]) / 2
If (IsNull(.P1)) Then
PO = P2
Else
PO = ([P1] + [P2]) / 2
End If
End If
End With
dersler formunda sınıf olarak 7a yı ders olarak fen i seçelim.
proje bölümünde düzenleme yapmaya çalışıyorum. yuvarlanması gereken bazı sayılarda doğru işlem yapıyor bazılarında yapmıyor.
2 ile 3 ün ortlamasını 2
3 le 4 ün ortalamasını 4 veriyor.
Buçukları yukarı yuvarlaması gerekiyor.
With CodeContextObject
If (IsNull(.P2)) Then
PO = P1
Else
PO = ([P1] + [P2]) / 2
If (IsNull(.P1)) Then
PO = P2
Else
PO = ([P1] + [P2]) / 2
End If
End If
End With
Ekli dosyalar
-
105.6 KB Görüntüleme: 5