Calculator Extra Time


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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s