تفضل حسب طلبك
Dim rs1, rs2, rs3, rs4 As Integer
rs1 = (Me.YF * 360) + (Me.MF * 30) + Me.DF + (Me.YN * 360) + (Me.MN * 30) + Me.DN
rs2 = (Me.yk * 360) + (Me.mk * 30) + Me.dk
rs3 = rs1 - rs2
Me.TY = rs3 \ 360
Me.TD = rs3 Mod 30
rs4 = rs3 Mod 360
Me.TM = (rs4 - Me.TD) / 30
جمع الخدمة بالنموذج.rar