To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give
To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give us Exact Result.
Rate To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give
(1(1 Vote))
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
To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give Comments
No comments yet — be the first to post one!
Post a Comment