by (Aqeel Ahmed) (Aroog) (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 24th July 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give us Exact Result.
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
No comments have been posted about To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give. Why not be the first to post a comment about To Calculate Exact Time/Hour and You can modify as per your requirnment. Vb DateDiff Could not give.