Yeni bir modül açıp ;

Public Function ssaat(bsl As Date, bts As Date, moDkk As Integer)
Dim frk, artan, ServSat
frk = DateDiff("n", bsl, bts) '400=120+120+120+40
ServSat = Fix(frk / moDkk) '3
artan = frk - (ServSat * moDkk) '200-(3*120)

ssaat = ServSat + IIf(artan >= moDkk / 2, 1, 0)
End Function


yazın ve sorgudaki alanda bu fonksiyonu şu şekilde kullanın;

Servis: ssaat([bas_saat];[bit_saat];120)