Private Sub Command1_Click()
mDate1 = CDate(“01-06-2002 7:38 am”)
‘ Add Hour To Add TimeOut
mDate2 = DateAdd(“h”, 9, mDate1)
mDate2 = DateAdd(“s”, 1800, mDate2)
‘ Add Over Time Amount!
mDate2 = DateAdd(“h”, 3, mDate2)
mDate2 = DateAdd(“s”, 1800, mDate2) ‘ & If There Time as 3:30 Or 5:30 then for 30 Use This Line
‘ Calculate Exact Time
mHour = DateDiff(“h”, mDate1, mDate2)
mDMint = DateDiff(“n”, mDate1, mDate2)
mhMint = Round(mHour – Int((mDMint / 60)), 0)
NetHr = (mHour – mhMint)
‘ Now Add Minits In Time
mMinits = Abs((NetHr * 60) – mDMint)
NetTime = NetHr + IIf((mMinits / 100) >= 0.3, 0.5, (mMinits / 100))
OverTimeAmount = (NetTime – 9.5)
End Sub
